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Jumping Jive 
Heu: Grafill-Kti 




DIE C-64 ENZYKLOPADIE 



DER AUTOR RAETO WEST ver^ndcie 1 ,1am dw Analyse 

und Etakui 4 ? "? S 3 

n^ir^'nn'^r: < 'ieduid: Da* v : MW yn^-'"'!^'*-' * ? tv,-.. .■ 

BucK da- nuben Lhrcrn Conip'-iwr iieuen bleibt 

Alls Erkiiiriumtfn. such komplaxer System- Lira Ho- 

qi-nmiiifriiriesv uii'tii^r, ':>* "rfero Vwst sler» U,,,,-.. 

"Korix^'iv dui-c:-, EinsLvit una slides l^kteiv-issei,. 

; t ,i' f :v;'- ; :flMu S ikt;-, i >ori^i l :dS!lJ.Chipinr.an^l-^ 

EIN REFERENZBUCH f:ii pTok'ssioiwIli' (U-.ru 

Sofhware-EiitwicM* aul d-jrr '. J s-M.y-.dard ■:•■-<■'■ 

Bud* PROGRAMMING THR PIH CB.M d«s 

aleichen Aurora: EIN LEHRBUCH - A-.fbau 

•" lm J ,Viv,v-nd L [i-io,>--f!il Mi:-.: :>:«:: :p-.i(e!T'iirr-. fei 

spiel des C6<l fir aliw-Auwdidakten und Ein- 

EIN 5 ANWENDUNGS-HANDBUCH zum C-64/SX- 
1 -,4 [11 .tu'> i .r:ii^nV,o,a:.,!-!i-i.n^:-il^nA'i-Hir.WKri?ii- 
,r,ei^ tiemmdenen. 
Seiten, Softcover, DM 66,- iJjSS3™Sj (tU I II 




_n der restlichen Cnm- 
-welt ist auch bei uns 
lig was Neues Igs. Das 



P ■Nl iff fltari-ST- some die Sinclsir- 












Zeug gelegt - dann fulgt der wahl verdiente Urlaub. ™2.. am 

Hoffentlich auch Fur Sie ! %&-" 



7m 



Thomas Eberle, CheTredakteur 



4 INHALTSVERZEICHNIS 



INHALTSVERZEICHNIS Bei uns k6n " en Sie 
mitmachen 



■>. Bcrichte. Spiclebesri 



» angetan, 51=1- <>es Prugiamms in uni 



Spial zu n Ablipp sn: Ku ng Pu 



Die nachste Ausgabe 
»Computer-Kontakt« 
erscheint am 29.9.1986 



TOPPROGRAMM DES MONATS s 



Topprogramm des 

M onats: "Monopoly" 

fiirdenTI99/4A 

Monopoly kennt wohl jeder Leser: 
Grundstiicke kaufen , Miete zahlen, ins 
Gefangnis gehen oder Hotels baucn. 

Dem Autor Gerhard Neumes ist mit 
seinem Programm eine sehr gute Um- 
setzung auf den TI 99/4A gelungen. 
Neben der Grafik zeichnet sich das 
Programm besonders durch die reali- 
stischen Kauf- nnd Verkaufsaktionen 
aus. Besonders interessant ist dabei, 
daB der Computer bei Krediten diese 
zu bankiiblichen Zinsen gewahrt. Das 
Spiel wird damit ganz besonders rcali- 
tatsnah. 



lOOODMHonorar 



In der CK gibt es das Toplisting des Morals. Das 
lauft daiin so, dafl ivir bier ir der Redaction von alien 
I'rosiia m i neinse nd imiicii d... belt; Programm heraus- 
suchen und in der CK als Toplisting des Vti.mais ;:b- 
drucken. Det Autor dieses Programmes trliall dann 
alsHonorarlOOO.-DM. 

Milmaetenkonnen lull; Frogrammierermit den Ge- 
ralenC64, Atari, Sindair.TMWIA Ein Listing muB 
nicln unbedmgL hcilicgen. tails der Autor des Pro- 
gramms noch keinen Drucker hat. Werden Pro- 
gramme abgedruti i. die merit /urn TopL-tine des Mn- 
nats gewahlt wurden, erhalt der Autor dafur ganz nor- 
in.il da- iihlidie Honurar. Be im Toplisting des Monats 
ist das Honorar fiir dtn Abdruck in den KMKI.- DM 
sdion o.irrKiliiiii Mil der Li'isendung seines Program- 
mes erklart sieb jeder Aulnr i-iil den einzelnen Punk- 
ten im Text "Bei in.-; ki'irmon Sit milmaehen" einvei- 
slaiulen isielie Seiiv 4 rf^geniiber). 

Desbaih Leute aufgepalSt: Bei uns kann man Geld 
verdienoi Die ChMcen f'Jr einen Ahdnick, odcr gar 
Gewtnner des Toplistings des Monats zu werden. stc- 
hen bei uns immcrgut. 
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CLUBNACHRICHTEN 



Computer Kontal 



itati-Clubs Commodore 

C 64 Club 
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CLUBNACHRICHTEN 



C 64 User Club Spectrum CI 
, ,. ,„,,„„- Osterreich 



Der Spectrum- 
und QL-Proli-Ciub 



a diese Angahen neugiefi^ 



Wer sucht noch alte 
CK-Hefte? 



Biicher fur die DFU 



Bestellschein fiir CK-Hefte 



CLUBNACHRICHTEN 



Der User-Contact 
Service (UCS) 



vonSpw. 



cadicti hcgrllflt. daB 




Computer Komakt 8-9/86 SINCLAIR 9 


f\\ \" «? 'i'-j^' H*- i '>- 

^ y Sinclair - ,: <-* 


Hallo Freunde! Quazatron 


villi. DnsolliBi.llwhlals.iii'nl'i.h HVr.^r^nSr.fitimii i-rMeiliJli unci D raw ' I it c a c ffl.jlle Ljfolee 
indenivarroerr/riMoTisk'iUnr- iv : |! -ulli.- ci.li lT'on,lei\ tin li.iir,-. r. s cM iioiilen Planeten 








" 













Die AMX-Mouse fur den Spectrum 




Computer Kontakl 8-9/B6 



Sviii^.-ilc dci'inicr: jud i\Wa-.- d^ni tuHjiduhne]! 





m Kahmcn dcr Graiikgcaljd- 



/ ?'.f-Ari.L .-■ 'Chv zi: 'rrr^lv 






Z80-Analyst 

Disassembler und MC-Testpiogiamm in ei: 



Z SO-Arwly^. nili, in nthiTi mil ii>*vilL|Kr AnipiK- de 
ipteil noch cinen Single- und entsprcchcodcn A 






cnlliihci Pcimosc!plnt! 



x-Lhimp erslellen 



^nmlerciTi rjildausgeteri. Bci 



ilWB! 



Spectrum 

User Club 

Wuppertal 



Postfach 20 01 02, 5600 Wuppertal 2 



Pageword - 
die Tasword Two Erweiterung 



to IMm« Pagcwcri 



uiipfaliiKf "!VvA.::ii!^i- I'-^i- ■"■ T '■■'"■ '■■ 

p«-'nim l-'iii.-k.idi' ,: l.iiif,ii vijll/uMr,. k;in:i -n ; i J1.-1 "■ '''I 1 ' -'-•" ■■'■-'> * 
. . l.-iiiaiiK- i-.iiv'- ii'vi-'ili.'foni.cr, Bik'sL-r 1 ..!'!: 









Pagecode Lin die Ansprllche de 



Computer Kontakt B-9. 






rONTROL CODES-I i'iaic! 



l. : NI'«it. lovf liiiiiSiiiiiiL: 




^Wb. ri | Ung «niui durch- 


\.;.r:,:,.,l!endieOptkm4(SA- 


^^r^'V- 1 :' 


m Lndr hlr jede 


HHp'. i ■ 


autgctwl sind, Kigen dta* 



(*y Michael Naujoks ) 

Diesen Mo nat neu: """f":,,, DM M ._ 



Sinclair 



PingPong DM 31.- 



Kostenlosen Katalog S/8 anfordern! 



(PAGE LAYOUT) diem 



Uta Jakel & A. Klintworth GbR 

Hard- & Softwarevertrieb i 

chhorat2 J 

n-Meckelsen /M 



uia *janei a «. rvuriiwui in 
l Hard- & Softwarevertrir 

L Marschhorst 2 

fc, 2732 Klein-Meckelse r 

W\ Telefan:04282/561£ 




Maschinensprachekurs 
auf dem ZX-Spectrum 



Der Assembler und die er 



rdas demurs- Die Sprungbefehle 

) A, giln c ill K'l^cil'li:r^ VmnmhIcm 
gen Slclk im S^iithi". 



lm EDlT-ModiK (Eingabc 



Beispiel tines MC- 




LOOP LD(HL).B 


; Lade Rcgrstcrpaar HL mil *»0b 
; Lade Register B rail FFb 
;LadeSpcichcrbyIc{HL) 


S5S™ 


i3™s.' 


RET 


;™ RETURN ta Basic 



* I'l.irunni ;llir;livh -Iciii RF.Ms im Basic 



:in Rscihlsr-. Reader 



■r grMten Zilfer (KHi a. 



aussefiitirt wird. mm 



die Zero-Flag becin 



Computer Kontakt S- 



Eio Sprungbcfch: 



c -,:,-r'.e SpeiL+.ei-b«c 
:ntLD(III.).H'l.a!m>S 






n /lU-lLiii-uni! ■-■ifJcr an Dcr iluiauff 






Think! 






S) Hi 











111 '■"' , "' ' . ... I', ! ,.,..l| ■ .■ ' ■■ l..„|.,i 

.- bpjL-ISc-.-J L..XUI «L-h «u S .=" 2 „ J™*™. Audita*. - SW ■:;■*! 10 



Comculer Kontakt 8-» 



Hardwarebasteleien fur den 
ZX Spectrum 

ichererwei[«rung. Vi-rbesserunj! des Netzteils, Scart-AnschluH unci iIivi.-j-.cm Rl^lti-Tiimi-iii 



c-ii J=> s-^.i. 


U*» selhst FUr dtt 






Ml SpC]L'lKT\<.] 
































,!'i iinlijli.'l: ",\ 






S|-'L;.n-.,ii-' .LhAii.riL'L: v.i!"-r 
























:6* i^'^i-'in-ki ..r.-rj c ri. ru 


























il, U"»>™u 


TMVI ?tti 


di, Briiiki Khon vjrtiMiJon 


ribi ^ ab-r JemiiKh ^:,kKir, 









^Ic^l siiul ibci wci-dv-n Dk HjL.kkc i^r 



■lite sfti aiiL-ii ttbencujcii, uMrpnifen. 



Computer Kontakt S- 



i Aiiy:hllL«e aufge- 
^crJen. AhgeErennl 
Lt 5 V Vc gurgling dc* 






Im Cnnzip yihs ^ i " .1 Moi- 



VcrbesscnuiE des 






HL'llhil'il 


PI 1. 113 li:-: \ 


Essa 


UNO SOFTWARE 


FUR 



Computer Kontal 







40 Lernspielc fur 
denZX-Spectrum 



VerlimSKOSdlscliaft 
158 Seiten, 29.80 DM 
Cass.zumBuch.lS.-D: 
ISBN 3-478-09O7D-1 
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iMKUIUtor 1 nl 
I6KRAM 


3_ 


km 
hi 

.BB 


I 


G 

P. 


DDODDDDD 


B B1E 


1 



Version 3 1 






1 1? BBB 

• Q- ffiffl" 

D ™U .BBS 
□□□□DDDObBIB 


er, 

I 
H 


el 




L70QpF 220)jF I 



ffil' /6K 



2 Q SINCLAIR 
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A -«| 




Wdec _ _ ^-Cynchstecker 



£1 5 



Jj" 






72V ex( Verbindung mit 

aus Netzteit Ktinkenstecker - 

zur Umschaltung in AV Betrieb Klinkenbuchse 3,5mm 
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cnry 



a 8 



ODD 




Q 



dDDD u 



Ub°- 



in, 






Zoids - The Battle begins 
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■'■■■■■ ■■ : ■ : ■■ ■ ■ 
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2i SINCLAIR 



Assemblertips fur den Spectrum 












Plian- 2.LPR1S"! utvi sln.in-..iiiljliei Tllk -' 



We finikiitmi*n 's? 



a n ale i mines zu l'HA\S slus r^ tkr S^ii'mvariaNen F 



SC.™". t™1"S *-"»•" ™»*— 


«MM «.*«,**_ 


tenutzuDg der RllUIlne ki-etoi-.c KamiLuniiai; "'liJ Lin 




Eingabeprogramm aus CK 1/86 

300 PRINT ■HtK-Cods-Eingabe alt 

310 DEF FN A(X«)=CODE X*-48-7»< 
X»>'9') 

320 PRINT -StartadreBH*: "Si IN 
PUT A! PRINT A 

330 PRINT Ai"; "i: POKE 23692,- 

340 INPUT A*: IF A*"" ■ THEN STO 
P 

330 LET 1=0 

360 LET 1-1*1 

370 IF DLEN A* THEN 00 TO 420 

380 LET X*=A»(I>: IF X*=' ■ THE 
N LET A»«A*I TO I-1)+A»(I+1 TO 1 
: 60 TO 370 

390 IF X*>--a- AND X*< — f THEN 

LET A»(I)-CHR* (CODE X*-32) : 00 

TO 360 

400 IF X*>"-0" AND X»<- P 9 P DR X 
*>="A" AND X»<«'F- THEN GO TO 36 











SINCLAIR 23 



410 


BEEP 1,30: GO TO 340 


64670 


c9 »5 fS 3a la IF 0F 32 cc Fc cl 


420 


IF LEN A*<4 OR LEN A*OZ*lN 


64680 


78 e£ c0 0F 0F 0F c£ 40 67 7B dB 


T (LEN A*/2> THEN GO TO 410 


£4690 


e6 07 84 67 78 e£ 38 07 07 6F 9(1 


430 


LET S=A 


64700 


79 to +8 0F 0F 0F 85 £F 79 2F dc 




FOR 1=1 TO LEN A*-3 STEP Z 


64710 


e£ 07 07 07 07 F6 B6 32 dl fc 43 






64720 


cb 86 fl el c9 cd 54 IF dB c3 97 


43a 
•II* 


LET X=16#FN A(A*(I)>+FN A(A 


64730 


7b lb 00 00 00 00 00 00 20 20 t>0 




64740 


20 00 20 00 50 50 00 00 00 00 c4 


460 


POKE A*(I-1WZ,X: LET S=S*X 




30 F8 30 F8 30 00 78 a0 70 28 7c 




NEXT I 




F0 00 00 48 10 20 48 00 30 30 28 


480 


LET M=INT IS/2S6): LET S=S- 




20 38 28 00 10 20 00 00 00 00 d2 






64780 


10 20 20 20 10 00 40 Z0 Z0 20 2c 


490 


IF SOlSfFN A(A*(IJ)»FN A(A 




40 00 30 20 fS 20 38 00 20 20 76 




1) THEN 00 TO 410 




F8 20 20 00 00 00 00 00 10 20 88 


300 


LET A=A+LEN A*/2-l: PRINT - 


£4810 


00 00 FB 00 00 00 00 00 00 30 32 


ok": 


GO TO 330 


64820 


30 00 00 08 10 20 40 00 30 48 54 


Hex 


- Code Liste 


64846 


48 48 30 00 10 30 50 10 78 00 16 
70 08 30 40 78 00 70 0B 30 0B 3B 




2a la 3c 7c b3 28 02 cF 17 2a 13 




70 00 10 30 30 78 10 00 70 40 Ba 


£4270 


S3 5c e5 2b 01 0b 00 e3 cd 53 e0 




70 08 70 00 30 40 70 4B 30 00 9c 


£4280 


16 el 11 8c fb 73 23 72 23 36 08 


64870 


76 0B 10 20 20 00 30 4B 30 48 26 


£4290 


c4 23 36 15 23 36 42 23 01 0b le 


£4880 


30 00 30 48 38 08 30 00 00 20 ag 


£4300 


00 71 23 70 23 23 23 71 23 70 94 




00 00 20 00 00 00 10 00 10 20 di 


£4310 


el ed 5b 44 5c a7 ed 52 22 le 30 




10 20 40 20 10 00 00 78 00 78 14 


£4320 


3c c9 00 00 00 cb Se cb d£ 23 82 




00 00 40 20 10 20 40 00 30 48 d£ 


£4330 


01 cb 9£ 23 72 c9 cb 16 46 01 c2 


64923 


10 00 10 00 70 98 b8 80 70 00 6B 


£4340 


3* cb le cb a6 c9 7a 46 Za 30 £0 


£4930 


30 48 78 48 48 00 70 48 70 48 92 


£4350 


fc c6 2a cb 9e cb c6 23.96 30 2d 


£4940 


70 00 30 48 40 48 30 00 70 48 04 


£4360 


14 c6 2a IB 10 79 Fe 2a 38 02 6f 


64950 


4B 4B 70 00 78 40 70 40 78 00 96 


£4370 


0e 00 at c6 07 b9 38 fb 28 t9 09 


64960 


78 40 70 40 40 00 30 40 5B 48 7B 


£4380 


91 c8 47 c5 16 20 21 42 Fb cd 42 


64970 


38 00 4B 4B 78 48 48 00 70 20 2a 


£4390 


93 Fb cl 10 +4 c9 21 42 Fb cb cd 


64980 


20 20 70 00 38 08 08 48 30 00 44 


£4400 


46 cb 86 cB 37 cd d3 Fc 7e 1* 79 


64990 


48 50 60 50 48 00 40 40 40 40 6c 




IF 38 a8 IF 38 ab IF 38 b7 IF c8 


65000 


70 00 88 dS a8 Ba BB 00 88 C8 C0 


£4420 


7a 38 a9 d£ 06 dS ad 4b 43 fb 29 


65010 


a8 98 88 00 70 BB BB 88 70 00 32 


£4430 


28 bd d6 02 d8 28 33 d6 02 38 ce 




70 48 70 40 40 00 70 83 a8 90 d4 


£4440 


5b 28 47 d6 02 38 4F cB 3d 28 0e 


65030 


63 00 70 48 70 50 48 00 38 40 a£ 


£4450 


3d Ab 03 as d£ 04 38 30 28 31 4b 


65040 


30 08 70 00 FB 20 20 20 20 00 30 


£4460 


d£ 02 33 2a 28 4c 3d 28 4c 06 01 


65050 


43 48 4B 4B 30 00 BB BB BB 50 32 




09 d8 Fd cb 01 86 20 04 Fd cb F2 


65860 


20 00 BB BB aB a8 30 00 BB 50 cc 


£4480 


01 C6 06 85 d2 10 0c 79 Fe 2a 91 


£50/0 


20 50 BB 00 38 BB 60 20 20 00 d6 


£4490 


38 03 04 0c 00 78 Fe 20 38 30 33 


■ ■ ■ 


73 10 30 20 7B 00 30 20 20 20 IB 


£4300 


cd 61 Fc 03 18 F3 cb c6 c9 cb 33 




30 00 00 40 20 10 06 00 60 20 £a 


£4310 


e6 c9 0e 00 04 ed 43 43 Fb c9 F£ 




20 20 60 00 00 20 50 00 00 00 5c 


£4520 


0d F2 03 Fc 0e 41 78 a7 c8 05 41 


<ss i ; <t> 


00 00 00 00 78 00 30 48 e0 40 6£ 


£4530 


18 eF 0c 79 Fe 2b 38 e9 0e 01 +7 


65120 


70 00 00 30 08 78 38 00 40 40 3B 


£4540 


IB e4 cb ce c9 cb da c9 7e e6 30 


65130 


70 48 70 00 00 30 40 40 30 00 72 


£4530 


80 32 92 5c 26 00 £a 29 34 3d 30 


65i4a 


0B 0B 3B 48 38 00 00 30 78 40 24 


14961 


Z9 19 11 lc fc 19 79 0c ed 43 69 


£5150 


30 00 10 Z0 70 Z0 Z0 00 00 38 c£ 


£4570 


43 fb 07 4f 17 81 4F 78 07 47 7b 


£5160 


4B 38 08 30 40 40 70 48 48 00 C0 


£4580 


17 80 47 16 06 7e le 06 Fd ae 8b 




Z0 00 60 20 70 00 10 00 10 10 42 


£4590 


38 17 cd 9f fc 0c Id 20 f3 23 86 


■ . ■ 


50 20 40 30 60 30 48 00 60 20 14 


64603 


79 46 06 4f 04 13 20 e9 c9 f3 dc 


65190 


20 20 70 00 00 30 a8 a8 88 00 7c 


£4£10 


c5 d5 e5 cd 43 Fc 06 06 c5 06 36 


£5200 


00 70 46 48 48 00 00 30 48 48 bS 


64£20 


bF 11 00 40 c3 6b 7a 3c 67 e6 aF 


£5210 


30 00 00 70 48 48 70 40 00 38 42 


64 £30 


07 20 0b 01 Z0 F8 09 b3 20 04 a3 


65220 


48 48 38 08 00 70 4B 40 40 00 rr 


£4640 


7c c£ 07 67 e5 01 20 00 ed b0 d3 


65230 


00 18 20 10 60 00 20 70 20 20 46 


£4£50 


dl cl 10 eZ 62 6b lc 70 01 IF 87 


£5240 


10 00 00 48 48 48 38 00 00 88 80 


£4££0 


00 ed b0 cl 10 d0 cl dl cl fl 36 


65250 


88 50 20 00 00 BB BB a8 50 00 e2 



SINCLAIR 



65260: 
65270: 
£3280! 
69 290! 

63300: 
65310: 

65320; 
£5330: 
63340! 
65350: 



I 48 30 30 48 00 00 46 48 38 a4 653601 60 e0 Ic lc Id f0 

3 70 00 78 10 20 78 00 10 20 be £5370! e0 *0 e0 o0 ic ic 

J 20 10 00 20 20 20 20 20 00 30 £5380: 00 00 00 *c tc fc lc 

J 20 30 20 40 00 00 » 30 00 72 63390: - 

J 00 70 98 aS 98 70 00 00 00 cc 68400; 



•0 (0 00 



& e0 a0 fc tc fr tc fc f2 

50 98 t3 98 00 10 
00 00 00 72 65410! 46 30 46 48 30 00 88 40 50 50 ba 
'0 fc +t +c 00 be £5420! 70 00 48 30 08 7S 38 00 48 00 74 
c lc lc lc lc be 63430! 30 48 30 00 48 00 4B 48 38 00 4e 
e0 lc lc lc «0 63440: £0 30 70 70 60 40 d0 
c 00 00 00 e0 &' 



Assembler listing 
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Anwender- 
freundlichcr 

Autostart killer 



7, 192 




?na 


■w 


B? 


3,205, 


Ifl 


12,22 


1,229 


209, 1 


,i 


in 


0,285, 


60 


32,42 


, 13,219 


VVI 


i2i,e 


147,32 


,205,221 


,203, 




WW 


4? 


«s 


92,19: 


, 1 


5, a, a 


,7873 
















20 


NPUT 


MC 


St 


rtadre 


ss»! ■;» 



30 CLEAR i 
40 LET sfl= 
[ 23731 



♦ PEEK S3730H 



Idee+Erstvei 
von Mar-kus F 
<CK 4-5/36) 



100 SAVE ■AUTOKlLi 



SINCLAIR 



Roulette mit dem Spectrum 



lt OpLii'L' 1 .lI;:l-'.i- 









!f S|'i.-1-.T aul- /.niik'i! S i!-i ■" 



Listing 1 





l»H9 - 




H2T23* 




7: INK ): FLUSH 1; BP. 


ISKT 1: BJ 


[ 1: IWttSE 1: lORDE 


17: US 






IT 11,5; BIIEHT li FL 


ASH i; IKK 


!i' BUTE BAND SEBPPE 


" 4C FT* i 


1 ID 3: BEEP .l,ii « 






D PAUSE 211 


tl hear iwt 



1(1 PUT! lli.i: »** -?lti-9S,t 

170 NEXT i 

711 FW 1=75 EC 175 

71! HOT i!55,i: DRW 25,0 



ta next i 


Listing 2 


£21 PRINT INK2|AT2,22i'IJ"iA 


23D FOR i*13l TO 139 




T 1,121* KL' 


W PLOT i,it25: IRAN 111,1 


11 REM LISTING 2 


430 PRINT AT fcat'UW 13,2 


259 PLOT i,i-55i MWI 18', I 






III MEXT i ' 


■NlitttmcO iiler, 


051 RESTORE 111 


39D HHHfM HJCMKM Wtl 




641 LIT AS" 1 " 




15 3D SUB 9011 


071 FOR 1=1 TD IB 


311 PRINT AT li.lti'-prntntt-' 


2t INK 9: PAPER 4: PLUSH 0: BR 


1SD REABX.n PRINT MP II PA 


321 P«INT AT 18, ID: FLASK 1! IH 


EGHT ! : OUEfi «: lhVEfiSE 1: CLS 


PER 2;AT I.YlAtlOT I'l.Tl*. 


K :•; BRIGHT l[" ROULETTE ' 


3D BORDER 4 


(91 NEXT 1 


939 60 SUB 'Ml 






33C PR!KT ft' 21,51 INWISE II' 




,3,25,7,5,7,1 1,7,17, 7, 23,1, 3,), 7 


BUTE BANO STtrHTEN > 


111 (»1«12£ USt ■[ 




3MF» i=l TO 5: BEEP -l,ii NE 


120 ffTlHT AT I4,27l*l2p* 


711 PRINT AT 10, ('"131 112921302 




131 9*0*1 1 E USB k 




111 REN Liter, 






411 PRINT a 20,11 


92225293131" 


301 1931 ' 






731 print at n,T,'tmnmm 




7292320293235" 


121302' 


449 1MB 'lldj'COK 15348 


1(9 PRINT AT 9,3i"93liWI213IB2 


741 PRINT AT 21 ,7 ; '5*13 1141 9289 


1!l PRIKT ftT 20,1; 


12027313330" 


792530' 


til LOM "MC'CODE 49099 


171 WMOMliE HSR k 


751 FOR P-l TO 4 




191 mm AT l,27;'12p' 


701 in X=FliS»H(M«P=4) 




i9i ewioniit ust ic 


771 FOR 1-1 TO 19 STEP 2 




211 FHINT AT ll,27;'12J' 


799 PRINT AT x, HOI MP i; MP 


?1ID REN Husik 


211 1*0*11 IE OSt ic 


ER 2C ' 


nil restore tut 




770 PRINT AT X, 1*7! MR II PAR 


TO EDS 1=1 11 52 


231 RANDOM IE dVii 


ER l| INK 71' ' 




2tl TOB AT 15,271' »* 


Bit NEXT ll NOT P 


MM IF 1-1THEN PAUSE t: HEXT 








121'IMMIB'IM 13, t; "PASSE" 1AT 1 


B21 PRINT AT 19,01 Ml II INK 


5051 1EEP l.t 






96(1 HEXT i 


21) FED 1=1 TO 3i PRINT IIWRS 




4071 PAUSE m 


E ODlM l-l,li!tl«!=5t! HEXT 




9 ibi retubn 


1 


901 SAUL 'SttMl'StKDS 


•lit MIA . 125, 1!,, 1!!, 19, I, 15,1 


27t LET D=1109: LET feJMl 




,4,. 125, 17, .125, 17, .125, 17,1, It, 


291 RESTORE '51 


920 PRINT >*Utttl»«n Uttt 




311 FOR ["1 TO 15 




,15,. 125,21,. 125, 20,. 125, 21, .123 


310 BUD A 


lIlOtD. Bittl zurunisjiulES. 




32) IF P-fi THEH REM X: READ T 




9111 DATA .125, 27,. 125,27, .5,21, 


1 PLOT K.Ti 00 TO til 


930 LOAD 'ScriHi'SCBEEM 


.125, 24, .125,19, .125,19, ,125, IP, 




941 PAUSE 0: CLS : PRINT ■«.' 




til NOT I 


1010 REM Hud 


.125, 19,. 123,79,. 125,29, . 5,24, .1 


451 DATA p, 231,175, -215, 1,8,-1! 


Itll RESTOtE 1211 


23,2*, .125,31, .125, 31,. 125, 29, .5 


7,215,1,1, 127, p, 23), 135,-230,1,0 


1020 FOR i=UBt *V TO USt y-1 




. -47, ?JO,l,p,B>, 174. 1,-125, p, 131 


1 131 READ i 


912D DATA .125,24, .125, 31, .125, 3 


, 174,9, -125, p,2IS,!7t, 1,-125 


!OtO POKE 1,1 


1,. 121, 29, .3, 27,. 125,26,. 125,31, 


491 HOT i 




. 125,31, .125,29,.25,27,1,12, .25, 


5(1 RESTORE 551 


1710 DATA 2t, 01, 120, 255,255, 120, 


27,1, 21, .71, 31 




40,24 






1210 DATA 1,0,1,1,1,1,0,1 


9999 5WE "R, LOADER" UK 1: '•>!.( 




1221 DATA 1,1,1,1,1,1,1,1,0,1,7, 


IR "«.LDA0€l!"! STW 


531 NEXT i 


1,1,129,1,199 




551 MTA 102,149,121,112,75,11 






M GD SIR 9501 


7,3,219, I,2t3, 1,231, 1,12 


"G" (CJraphics)-Moclus 


SI! PRINT AT li.Oi'RB'jAT 13,0; 


1211 PRINT i PRINT Irrftti wit 


'CD'IAT 14,11'EF'IAT HftfOWl 


lilt, (ttti) m n-nvH !• 




■EH 1UCHSTABEH IN BtAFlKhKUS 


1739 WE 'UdjTOW US* 'l',01i 



SINCLAIR 



12(1P«1HT I Plllft '«wM 



Mil II 



!E mi 



flit FDR 1=11111 TO 511(7 

1031 IB! 11 POKE i,i: HEXT i 

'HI RETURN 

9831 DM* 33 ,253,B7, 14,92,197,21 

1, IM.MI, 14,3,197,4,1,14,7 , 17,1 

,1,137 



'Ml UtTA 24,2(3,7.41,119,225,43, 

193,! 3, 32 ,1)1,211 
'501 (EH Sdfiis 



IHt F 



MISS V TB 1KB '« 



1540 tETUW 

WlMffi !55, I!8,I28,I85, 1(5, It 

3,143, !(S,!55,!, 1,219,17,17,17,1 

7,1(3, Ii5, US, 145, 115, I2B,1JB,25 

5, MS, 17, 17, 17, 221,1, 1, 253 

HI! Ml* 128, 128,184,147, 142,14 

3,165,176,1,1,89,85,65,05,05,213 

,142, 142, 142,142,186, 128,123,255 

,213,39,85,85,89,1,1,253 

9421 MTU 1,3,7,15,31,43,1:7,755 

.128, 192, 224, 240, 249,237, 734, 255 

,253,127,43,31,15,7,3,1,755,254, 

252, !«, 241,224, 192, ITS 

9431 MTU 1,11, lit, 124, 124,124,4 



Listing 3 



1 (EH 


IBTIH6 3 




10 EIJN 


39999! LET (Stmt 


It (OS 


1 II TO 24 




31 KEN 


i** 




35 LET 


ll FW >= 




41 LET 


=CCDE ltd 


-48: LET 


COM ltd 


1-48 




51 LET 


=1-391(^1 




HIBMi POK p,141i 






*ciPEEK p 


LET p=f.< 


71WX1 


■1 HINT 


■ ■;: 19 



1(5 REN Mln lotr NC-Pngina 

iisMTnessi.'istysiisisitiKStd 

1 531 1 5M7 !2135b3 1 02514 ( 33055b( d 
1 29(3i IBM)! It i599d**l2t ub9d* i 



?((d5Jtb4i(i3(9f 
1M MT* 7H5, , IHnH«H(lllHl! 
M9M I f tldtitt VW 22109c b432l 133* 
15c 3( *9dtb42!109tb44 2OB3*04c 3 ft 
9dc b4i! I Wcb44!OI33( 17c 9**9dc b4i 

jdij^tossfio 1 

!31 OATH M5(, 1 t3Wd[b422H53t 
S U 3 » *9d;b4 s! 1053* 03( 31 (9dl b43 20 
1535 1 4. 3**9 1[ 944 2 1 13 3 ( 1 7c 3 1 (9 d3* 
1 0( 3( > 9d0 i < ft It dSI 1 1 1 • 1 7*d58c b 42 
!i3(9«bJ2?«D'(b' 

141 MTS 4479,'5illl33il5c3f(9d 
t b5 2! 00?c b6!!0 33 *04. 31 f 9dt bi 2! 1 
I9[ b4328IS3* I7i3f t9dt b43!OI9cbSi 
71B53c8Bi 3f *9rt b5!2l 153(1 k 3* (9d 
r-.*.33«ltM:3'f 

■!3»1« ?|JJ.-«d<Wi7IC31»l2<3 
sc'aMI.WldtalliJWOtltiH* 

';:■■•-)»<; iiw;(j;*)w!u3'<i«( i 
r Wk ! * ( ':* * " i ic, > lii ».'m • « 
?oiwojc;*nd'.- 

■,t WTJ «W, , MilH1»H.I , 7'* 

-•::(•:( i;i;(i'rt5»H3taiM"t 

( 17 ! )* »7 : 1* I i I U im 3»« 1 157 u 
K.;;>'|...'.cS:<;'2:il*9»i»i.t 
12: •).-.'. |>2W 
I't »T« 3152, ■]*):. >3i'*il7t)« 
- • 17 1332**0* JOItJ* 33 182i '* Mi 1 3" 

ttumim 

3*04IBI2*(1M00<3( 
3( IE 19 123(10473 1 ■ 

!aiMTA5l4!, 1 ll5b473il23b4t7c 
: d7 19(783! 1 1 5b7 732925b! 1 1 331*82 1 
( 73i D3»b9c 1 5i9t3i l!SM73i 155t4( 
1 dc 29*3 it 1 5b32 133M 73 i (25b3 2 155b 
4fc(c?9«35i9cH" 

191 DATA 8155, "llH(t*lb7ftl!Hb 
3i81JM73tK5MtcSidcZ9«U5KH 
13. b3Bc b3 lr b3f 79 f 4 He B3I t b3* i b3 ( 
3202S7B3! 1 1 3bf d( I M H I d 1 1 1 t Kb 



--:■■ ■■: 



3 ■ M M j 73 • «" f 3t )M H illrt I ».' 7(3 
'«:t«;il')i7)?i;:!**d"(i(r(IJ» 
'-.Jil4!t:-J'!:?H5:KI89i2:il37 

nn3i*i;«*iur 

238»TB4-tt.'U3IStt(57(HH» 
4 H 1579* 1 1 OKS ) ' 1 ' (d32(*40 I ( II I* 
B91*179im:i(':7i<.ij;2j*l[ 9<l'» 
1 0! !Q| 1 1 181 1 3?? I «:! ic71*9 . 1 1: (3 
EMtlSHftMJW 

2<i »t» ;:-n •s»(i»i:idj»c;7 

3*d(8Bld2K'4':9l.l(lC7l5ll 3HI0 

4 Bum a i bbw; : 5CKi 1 1 iihhMi ' 1 1 






>n >;.■■(• 



■;)« 



23B DATA 6530. '3*1 i«117»7t29t5 
t dd!9((12b7 ■W»ic9).1i5H*l4(5 
r 5Vd«94tlf.::Hi:!i I':!- (3 . 
13llfdb5H3l'll'rt5|9|(*S'8C).'-: 



Listing 4 



2WMTB nei,'aui(Mmtm 


USTIHB 4 






1 1 1220 1! 15<9*f-032 10! Idc 9**04 2 1 02 


•Hit 


14c 9( (852 10314 Ice 9* c 14! M!li !5c 1 




itmwmikiw 


11 CLEAR 39999 


711 Dal* 7138, "I*9dd!14mfd2l 


I! REST OBt 


i B5U3H l32C45bdrf7> Illd77 !8dd7( 1 1 


21 m msi 


f d? 7 1 1 d«23d«33* 1 Of d77l!i 5c d3 59 ( 


25 DIN W(E,II) 


;Kt9t299Hdcbtl3tfdfblllc-ld[bO! 


30 LET b 4=48111 


1(3d!HI(5fd7tBr 


40 LET tuMNM 


221 BATA SB47, ■k77!379c6B3I09 


31 LIT l p2=40B71 



SINCLAIR 29 



SI LET cpl=4M4B 


341 IF Iff fiHD T'l r«EN GO 


M71 PRINT AT NM-I-INIH1DE-4) 


71 FN 1=110 8: LETH([>=50I1 




,)| PAPER 41 INVERSE <\mi: BO 


: NEXT 1 


311 IF IW'I* THEM LET »<[>=' 




11 (ESTORE ?l: FOR 1=1 TO El ! 


■: BO TO 311 


7511FK5AM YEIITHEH LET A 


EM) HMD) NEXT 1 


atiL(Tm(i,Yi=n 


Ef.ltXl LET P^'NMBUE'i BO TO 


(I MTU 'A. ZALLHAHN', 'PSYCHO', 




110! 


■LUCKT LltF'p'D.VWER'/OBI.IHS 


3BILETT=T<I: IF T=ll THEH LI 


711 IF .(5 AND r <IITHEH LET 1 


■,"I. J0HE5" , "SCVcPI OMS" , " E .7 - " 




(p,i)=l! LET P*=']HPAIR-i BOTE) 


111 PAPER 7: INI 1: FLASH 9: Bl 


3!l SO TO 320 


1911 


IGHT 9: WEB 1: HWER5E 1 


411 NEXT 1 


771 IF K) AHD 1(27 THEN LET A 


III BORDER 7 


511 REN JOYSTICK 


IP,II=SI LETPM'RirT 1 : 60 TO 110 


112 DM ECU) s RESTORE 113: FOR 


stinj 


■ 


1=) TO 34: tEABEU): NEXT 1 


511 MINT : PRINT 'KLCHE TfiSTO 


7B1 IF X) 13 AHD r<i THEN EO TO 




TURBEU6W6 ODER HELCHEN JDTS 


2011: REN END 


31,1, 27, 13,31, 11, 31 ,1,23, It, S, 24 


V.'.l NOEWCHEN SEE 7H1E6UM SIN 


791 IF )I>II ANDYU AH) 111 THE 




1-4 '1 PAPER il* '! PAPER 7;' 


N LET I'M: LL" AIPL,I)*I; LET 






6(P)=6(P)tHIP,1): LET H(F,J>-ts 




531 PRINT AT7,li'l • KEMPSTW 


LETHP,I,I)=B: LET7IF,I,!)=I: 




:« t,H'l- 5]H£L*[R , ;p.T 11,1;' 






S • CURSM'sAT 15,11'S- 5,1,7,! 
,0'iAT 1),11'4 - 1,7, !,!,!■ 1ST ) 


715 If Sill AHD T(3 THEH SOTO 




7,11"! - !,M,P,SYHHL SHIFT 


Bll IF X»l AHD YEN THEN LET 


115 BOWES 7: PftPER ?: INK 0! F 


541 BO SOB 9110 


A(P,l)=3i LET PM'PASSE"! BOTE) 


LOSH 1; IRIBHT 1: WER 1: INWKB 


SSI IF »<')' OS IW4" THEN 6 


llll 


Ell tU 


1 TO 341 


BIO IFWU AHD Y!I9 THEN LET 




511 POKE 23294 ,<ML It 


A(P,I)=5: LET PfPAlR': BO TO 1 




ill REN miHLOOPSETJTEN 


101 




41! FN i-l TO pi! IFalf) THEN 


320 IF 1011 AHD Y(27 THEN LIT 


130PBIHT : PRIHT "BITTESEBEN 


CO TO il3 


A(F,II=7: LETPb-SOMAIZ': SOT 


SIEDIE AH2AHL DEI MLTBP1ELEB E 


(1! NEXT i: BO TO 751! 






4l9DIKi(pl,5> 


B30IFT>21 AHD(«2 0»X)I3) T 




til DIN MPL.S) 






131 OiN 71 PL ,5,3) 


T2FJID 1 : GO TO IOI0 


HI IFMCM 1 « IDTTHEN B 


Ml FOR M TO PL 


Bll IF 1)21 AHD (X<10HX)I2)T 




112 IF «<p)M THEH SO TO 2120 


HEN LET AIP,I)=I2: LET Pt='2.Dil 


111 PRIHT AT 4,21! PSPEH i!WL 


MS LET MOOE-i 






1SI CIS 1 MMMI2E MR CP1 






4(1 BlKOtfi 4 






171 PRINT AT P.II'SFIELER'IP; 




ft ■ <»:): NEXT i 


1 CiHttPH'), BITTEYSETZfflS] 




211 REN 1NIT 


E IIRE CHIPS.' 




III MM Mt(PL h (DJ 


4St PRINT AT Jl.iriHRIOHTOi'; 


' : GO EO llll 


229 OIK GtS) 


PAPER 4i6!P)i PAPER 7;' M.' 


871 IF Y)21 AHD X(7 THEN LO A 


225 DIH K5) 


402 SB BUS 9101! BO SUB 9210 


IP,n=B! LET Pl='l. REIHE': BO I 


Ml DIN »<PL,3! 


4B4FOR 1=1 TD! 




hi UN z(PL,s,2) 


491 PI HE 23217,1751 POKE 23299, 




251 DIN HIPL.SI 


1 


IP, 11=9: LETP*='!. REiHE'! GOT 


271 PRIST : PRINT ■aiTTE GEBEN 


415 PRIHT AT 17,li'SET7ENE!E 1 


II 1090 


SEE 1HRE WHEN EtN. (HUB 11 BIO 


HRffl ■!!!■. CHIP.' 


B90 (F 1)24 THEH LET AIP,U=1B 




709 immm USP HI 


: LET N-*J. REIHE' i 61 T9 llll 


261 FOR 1=1 TO Pi 


719 LET X-PEEK 23297; LET <=MS 


910 REM IAW 


291 LET 6(I>=3B0I 


■-3I-I) 


902 LET Y-1NT (Y/2t.51-| 


311 LET X=H2>B: LET T=l 


721 LET WEEK 23290 


593 LET 7A=Y13 


311 PB1HT P.T X.H'SPIELER 'ill 1 


731 IFX)l5 0Rr)29Mr<3»» 


914 IF »8THEN LETR=3: BO TO 


'; PAPER 41' ■; CBPER 


V>0 AM M EC I! 12 WD (=2 OR X 


911 


W '■ 


= 11 *8 YOTHEH H T9 491 


913 IF X<7 THEN LET 2*=!A-J: L 


m w its foi9 


711 IF Y=l AND X<5 THEH PRINT 


ETR=I 


331 IF [OK 11=13 THEN BO TO 4 


ATH0DE-!-ll(N0DE=4),ll PAPER 4 1 


III IF »i THEN EST 2A=tA-l: I 


Bl 


BRIM IjMDKt LET H0C*>Xt1tIi( 


ET 0=2 



SINCLAIR 



911 if mk=;then so to '40 


1090 POKE 237.97,15: POKE 33398,5 


UE' 








TO 490 


1111 LET i=PEE« 33297: LET i=AB5 


E" 


91! [f iODE-4 m <r=3 m mil 




3B39 IF ZiV3=lNT IZA/Z) THEN EE 


1 THE* SO TO (91 


1119 IF IO310R y=3DRy=H BR 


T P^'PAIR 1 


911 IF H0K=i MB IROI 01 ZA>3 


y=\l IW «>2I THEN GO TO USD 


3919 IF ZA/ZOINT IZPJZ) THEN L 


3) THEN SO TO MO 




ET P*=" [ttWIR 1 


9!(lET*(P,])=»l)Kil!l(l1KiEOI 


1390 


3059 IF ZAII3THEN LET »='!' 


E-ttfMt&il 




!lil IF Itm THEN LEI OV'3' 


'!! LETZ<P,I,1>=ZA. LETPB- ■ 


IHOLH B9(B)=5TR9 ZA 


3079 IF ZA(35 AND ZA.) 1 2 THEN Li 


iSTM ZA 


Hit PRINT AT 20,61231 PAPER 1;Z 


T I*'? 1 


HI IflME-l THEN LP M=-PLE 




39B9LET IMh', DR1TTEL' 


INE'iPt: GOTO 1919 


1171 HEXI B 


3090 IF ZA/3=1NT (ZA/31 THEN LE 


921 IF HdDE=3 THEN LET PI="TI» 


1319 LET WJAL H 


T R*=-3' 


NS.PLE!NE"*Pt! SOTO 1091 


131 D B0 TO 1109 


3100 IF <ZA*3)/3=INT (<Z*<2>/3> 


9!! IFHOOEMTHEN LET P*='CM 


1319 m DEL OR END 


THEN LET RVi' 


PEMM: GOT! 19(0 


1310 IF lOli DBT<3) (W0 Bt=' 


3111 IF (Z«tl)/3=INT (IZAill/J) 


911 LET M='2 TWHS.'tPi 


■ THEN LET eM'tHHM 1 




931 OS TO 1900 


1321 IP TJliOR TO THEN SOTO 


3139 LEI Rt=Rt*". RtlHE' 


911 If HP,l,ll=niOI LET !(P 






,1,1>=ZA: LET A<P,I)=U: 60 SUB 


1331 IF 3=1 I HEN GOTO 1089 


3119 IP NOT T(ZA) THEN ITT 51=' 


HMl PRINT AT ]9,IfflH«, 'IZA 


1310 LET B=B-li PRINT AT 30,6*33 




:M l9,li"BiTTE MtttisE ZAHL E1N 


i PAPER ii" '1 LEI BUB)- 1 ': 60 


3319 00 SUB 9319! PRINT AT 1,111 


OEBEN": POKE 33-3-57 ,175; POKE 23 






39B,9: 60T0 7B1 


1491 IT YlGIPt THEN 00 SOB 9390 




951 LET ZAI=3(P,[,I) 






95? if 11=1 m (a-jozai mii 


EN5IEN1CN1 '■; 60 SOS '101: 60 




miuiw imeozai them got 






991 




3315 IF HOT nlplTHEH 60 10 192 


951 IF R=3 AND ZA-30ZAI WD ZA 






• SOZAI AND ZA-IOZAI THEN EOT 




3319 PRINT AT 4,1j*SPIELER '1P1' 


990 






95< IF P--J HMD 2A-107.A1 Ml ifi 




AETZE NEROEN AUSGEWRTET. 1 


tiozfli m za-iozai « swlo 




3339 PLOT 9,131: MAN 755,0 


(Al THEM CO TO 990 




3331 FOR M TO 5 


910 LET Pt-'CHEVAl '*STRt ZAr, 




3319 IF AIP,II-I THEN SOTO ill 


'•STRt »l 






9(3 LET ;<P,I ,?>=;fi: GO TO 1(09 




33« PRINT AT T.li'MlPW. 'II 


999 GD SUB 9209: PRINT AT 17, l; 




3350 60 TO AIP, 11159*3159 


'KITE JLIEWWEHHSEHSENSEN 1 :*i I) 


3939 GO SUB 9309: NEXT p 


3501 PRINT AT (ftl'flllK 'IZ1P, 


.irmsv: so sub IIU! go sub 


1511 REN LAUF OER KU6EL 




9310! GO TO (90 


2519 CIS 1 RWSHIIE USRCP2 




1190 50 SU9 "M : PRINT AT 17,1! 


3520 BORDER 4: PRINT AT 15, li PA 




■GEsnnftUF ■ipi! 1 . 1 






1411 SO SUB 9101: 00 SUB 9200 






!K9 POINT AT 17,11'NIMf.L 6ELD 






NOECHTEH S1E SET- ZEN 9 IHTt K0 


BRINGT OIE 106EL ■„■ ING SPIE 




KTrJl'i PAPER ii6!P>i PAPER 7',' D 


L, HlCHTSi SEHT HEHR." 

55*0 LET MNT (WO!232)tl: POKE 


Mil PlM^vJ-PASSE-' 


1031 (EN 1s!F.9!,n t ebFn. 


53359, R: RANDONIZE US) SCR 




1141 PRINT AT !(,([ 1NUER5E li-E 






NO-i LET Iwtl FOR 9=0 TO 9: PR 




2.139 00 TO 3591 


INT AT20,GHi 1IPJERSE iiwiBS: L 


3511 IF R=37 THEN LET Iltel! GO 


3iiO PRINT AT Vi'lhPAIR" 


n inv-HOT isv: NEXT B 






1150 PRINT ' '1 INVERSE li'DEl"; 






tWERSE Oi" "i 1WERSE li'ENt"; 




3169 GO TO 35S9 


1910 PRINT " '1 PAPER Si' 




3709 PRINT AT 9,li"PA1R" 


i PAPER 71" '" 




3711 IF MO'PAIR 1 THEN SOTO 4 


H7G0INBK5I: FOR [PI TO 5 


3011 IF ZW1! THEN LET N»=-h«0 


511 



SINCLAIR 31 



3721 BO TD 3581 


GWI'-EACHERREHItll-jAT ll.ll-EE 


4141 IF .111 THEN B0T0 4IM 


3751 PRINT AT f.li'HDV 


inil'HIPitHiW 'ErHSATZ. 1 


4170 NEXT t! GOTO 7311 


3755 IF StO'RETT' THEN 60 10 « 


5190 LET SiPl=e(F)tmF,lH(6EK*l 


4211 CLS ! GO TO 4H 


11 




7)0) REN H1EHSCORE 


3741 GO TO 3501 


5J40 IF W«=D THEH LET PLAY-P 


7010 IF filOIHiB) THEN RETURN 


mi print m j.ii'scwmwz 1 


: S0 TD 7710 


7520 CIS : PIIHT AT 1,11'SPIELER 


Kit IF SIO'SCHMZ' THEN SOI 


SKI E0 SUB '111! OD TO 4(00 


■IPLATI* CIKHPUWIi'l, SIE'iA 


o mod 


4001 REM HAEEHSTER SPIELER 


T ;,lr'»RNKn ■: PAPER 4I6ELD 


mi BO TO 358th 


1011 PRINT ATI, tlMIAT S.tiMiA 


1 PAPER 7; 1 OHEIHENHIGH-'IAT 3 


mt mm at ? , i;A{p,i>-7t ■ . re 


T (,0IM 


.li'SCBHE ERREICHT. IHI ME H1R 


Of 


1071 HEX! P 


D IH OIE RESTENLISTE UEBTRTUG 


Ml IF STRt IA1P,I)-71*'. Kl« 


4031 CLS 




■OH THEN U TO 4511 


4040 FOR 1=1 TO PL 




»7I LET r,EN=2: GO TD 5«t0 


4051 lFSdl-ITIEM LET KiNUl 


7)31 FOR 1=1 TO ): IF GELDM11) 


i ■ d-o PIIHT si l,liA(P,H-ll!', D 


LEI«Ci>=0:: LET g(i>=-l: PRIHT 


THEN GO TO 7101 


RITTEL- 


AT 1,1 i-SPIELEC '1 PAPER 4i!i P 




1111 IF STB (A<P,I)-ltH'. HIT 


APES J;' HUSSLEIDE1 HHWI-'l 


7111 IF l=B TKEN GOTO 7711 


TEL'OW TUB St TO 4500 


AT 3 , 1 S " DEH , » [R KEIH GELD NEH 




• 121 M TO 3"! 


II HAT. 1 ! 60 SUB »10!i SO SUB 731 




(III PdltfT AT Vi'CHEVAL tiff, 


1 


ESQ P 


1,1)1", 'IZ(P,1,Z1 


1071 NEXT 1 


72)1 LET HRI1)=NB(PUT): LET Oil 


lit! IF ZA(>I<P,l,l>*D»OZ!P 


407! FOR MTU pi! IF.(i) THEN 


NEW 


,1,7) THEM EC TO 1511 


EO TD 4000 


7211 IETORN 


1171 LET SEH=1T: GO TO 5101 


1074 HEX! i: B0 TO 7511 


7311 REM H1BHBCDREAWEI6E 


421* PIIHT AT SJi'TMWtBWLE 


40BI OD SUB P309 


7511 CLS 1 PIIHT AT 1,11'IMffl 


■3»,l,l! 


1071 PRIHT AT 1. lE'DDECHTE EIHETt 


EL 1ST 7UEHDE, JEDER 1 |AT l,l|-« 


1211 LET IZ=Z(P, 1,1): IF ZOO!! 


OER SPIELER A4IS- SCW1DEH '1 P 


JEIE7 1ST AUEKBCHIEDEN.": G0SU 


AW ZAOZZH * ZA02M THEN 


mil;' '1 PAPER Ti'.V 


BRIII 


CO TO 1111 


4H3 FOR 1=1 TO pi 


7512 CLS 1 GO SUB 7401 


47ZS LET GOfclU OS TO Silt 


4074 PRINT AT il.714, Sl'SPIELER ' 


7513 as 


TO PRINT flt t,li'CARRE '}Z<P,1 




7515 BORDER 


,1): LETZ2=Z(P,l,l> 


lOPS IF ,!,)=( THEN POINT -Aug 


7511 PAPER 0: IN* 7: SRIEHT 1: C 


42ii sr zaoiz and aoz!*i m 


Ktlirdn': BO TO 4IW 


LI 


M)U:i MJD mozm THEN EOT 


40PI PRINT PAPER ifflitl PAPER 


7521 PRINT AT 1,71'TODAYS BREATE 


1901 


7i' OH.' 


ST;' 


1271 LET (ffl=8i GO TO Mil 


i0!I HfJT i: PRINT i HINT ' B 


7311 LET 1*7 


1311 PHUT AT JJI'TRWSUERSALE 


ANK i 'i PAPER IjbinU FAPER 


7551 FDR 1=1 TD 1 


is) -i!(P,l,l!l LET ZW IP ,1,11 


7i' DK.' 


7510 PRINT AT Hit 1,3; IW IilM 


Mil IF IAOZ1 AND ZA02M WO 


4101 PAUSE 0: LH t(=lHKET«i IF 


(DM il2U,23ikli>; LET in=i«- 


zw>:;t2 and zkhm wo zaozz 


It='V OR »»|i then GO TO 420 




*4 m TAOZZiS TIEN 60 TO 4110 


1 


7571 IF i«=l THEN LET 1ip7 


1321 LET BFJM: 00 10 3011 


1IOS1F itO'j- AND HON" THEN 


75SB NEXT 1 


45IJ m NltHT GENOHHEH 


GO TO till 


7311 LET il=- 


1511 PHUT AT 11,11-EINMTZt "i 


1111 PRIHT AT 2,10i PAPER 1|"J" 




PAPER i;N(P,I>; PAPER Tf" Mi." 


(171 PRINT AT 3, 1 l-HELCHER SPIEL 


7411 M 1: PRINT AT l,7l ODER 1 




ER BAT UIEL GELD GEHDNNEN UND 


Hi: LET lt=!ntE*l 


'EN '!"! 60 sue till 


NSLL AUE-STEIE-EM W VIELLEICHT 


7411 IF ItO" OS (PEEI 23774=1 


4481 LET At-' 


IN DIE HIBH6CME- TABELLE !U K0 


AW IH 3101) THEN OD TO 7431 


■: FOB 0-7 TO Hi P 




7425 NEXT 1 : Gl TB 7411 


RM ATO.IIAI: NEXT 


PAPER 7|- ? 


7431 PAPER 7; IW 1: BORDER 4; B 


1421 LET BANIKSAWtHIP.II 


4139 PAUSE 0: LET 11=!HKET1 


RIGHT h OLE 


4431 NEIT I 


4135 LET pli"=(JAL Id IF pliyil 




451! E0 TO 4IM 


OR pli,)pl THEN GO TO 4130 


HOCWAL SP1ELEN " 


5 1!) HEM EEKMIEN 


4131 IF nlpliyl'l THEN GO TO 4! 


7451 LET 1CIH1EYI: IF It-" THE 


5DDi LET biiiHHiit->t|>,i>l(g«i«l 




H BO TD 7451 




1141 LET i<pliy>*jl>Ufl : in gc 




llll PIIKI HI ll,li"ElNSATZ: '! 


Is-jlpllyl! LH l(plly)=-l: GO 5 




PAPEISiNfP.I); PAPER 71' Ml.' 


IE 71101 LET .(pl.y)=l 


7171 IP ilOV AM *<',■*■ THEM 


5021 PRINT AT U^I-GEWKH! '; 


115) FOR 1=1 TO pi 


GO TO 7450 



a: SINCLAIR 



im stop 

j7io m am cesfkngt 


H N TO »92l 
f03l IETIW 


;M: HEJI 0: RETURN 
MM REN Enmrg.bMs 


77ii so see »i(ii as i tin « 

!,li'«»IU[HEN BLUECKWNSEH '1 


tin if iHiFtiO" skin, hoi 


!«t fHINTAT 1,11 PAPER ii'EHK 


AT 1,11'SflELEII •\KMt'i S1E» 


M PEEK 23WC II THEN HETUEM 




«EH DIE'iAT l,H'VM KSFMKt, 
DIE EFIEMNK'tAT 7, 1 1- IS! PLE! 
TE.'i 

7HI so sua mi 

7731 OB TO HM 

IW STOP 

ftllt REX INXTtl 

ton IF JHffiTtO" THEN WT( ! 


nm m cis imen 

17.21 fhb°ii to ?i: print at c, 


M*0 PRINT AT HM.irHAK" "i 

11': 'WD; NEXT 1 

MMPR1HT AT ii2-3, li'BSt 1 

Mil Eft TO fids 

HI 8 I EH SWEtOUTWE 


Ill 

JOZILET lt=IH«£Yli IF If" TC 


932B FOI Oil TD 15: PRINT AT 1,0 





Vuriablenbereich £j™ " ;l 
aufzeichnen Wlc 



! READ 



9B50 REM 

9900 RESTORE 9950 

9913 FOR A-23296 TO 23316 

X: POKE A,X: NEXT A 

9920 DIM A*il>: DIM A*(FN 012373 

fll-FN OI23641>-1B00) 

9930 LOAD *"H"[ifX« CODE FN 0(23 

427) 

9940 IF USR 23296 THEN RETURN 

9950 DATA 42,75,92,124,-2,128,40 

, 6, 205, 1B4, 25, 9, 24, 245, 35, 34, 89, 

92,195,179,22 
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Basic-Listing 



ORG 23296 

START LD HL, (UARS1 
SLOOP LD A, mii 
CP *B0 
IR Z,ENEVR 
CALL «i°E8 



D (E_LINE),HL 
P *16B3 
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EP 100 E - ein neues 

Programmiergerat 

fiirEPROMs 
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Von Dieter Rothgangi 
Birkhauser Vertag 
ISBN 3-7643-1727-2 
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l!;;g:;i; ; .i:f™ |f^2;'E':i 


Kontakt gesuchl! 

c ni_[ii L'^i-U.ih M i -. til :■;-■ I "i-i 





38 SINCLAIR Com o u [er Kontakt 8-9/86 






ADZEI 

FiirdenZX81mill6K 
»c-Zeil folge. 1 


' "E 15416, a 

lg36 for 1=1 to aa 

9*36 IF N.S'sSa THEN SOTO 9S&6 
aSti^PFINT^TFIB v,-..,:^^ 5.N.THS 1 

iiil^j-ET F=Ft ILt4) 

lS|yB 9973 
996B GOSOB S43B 

'|Lgi 5! """'aiia !, "" iF '" 
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Bild3 

15 PRIMT-JPITTE UHEHLEN SIE:«T 

22 PRJMT"DIE iflHL MUSS IM BEREICH B- 255 
£4 PRIMT-flCHT BIT BREITEN B 1NPER2AHL STE 

£E PRINT"GE5ETZTES BIT. Ml" 

23 PRINT'BBlE BINBERE DflRSTELLUNG DER 2 


e hinbe.egen Sl 1 I > r ' 


Bildl 


>; ™-.=. -" •■■-■■ --- »» «' » 
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Der Amiga: Sein oder Schein? 

Teil 2: Das AmiguBasic 
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Datenaustausch per Userport 

FiiiC64undVC20 



-echend nlle aul Hingabc 
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al . 


M.«e(GND-G 


nlimd] mil *S Atom* del. S6SS9 




A Mi i Id in ii; 1 
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• 
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Das Steuergerat zum Commodore 64: 
M adchen fur alles? 
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Modem zum Preis eines 
Akustikkopplers 






Borrowed Time 
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Koronis Rift 



Aufbau und Verwaltung 
von Dateien mit dem C 64 



Von James Gatcnhv 
Mode me 

Ver]ags|esellschsf[ 
130 SeiMtt, 29.80 DM 
ISBN 3-478-D9180-2 



raspl ibidem zu ilrr 5p:eler Spalti 






COMMODORE 






Commodore 64 Magic 



Datenbanken und 

Dateiverwaltung fur den 

Commodore 64 



Von Michael Callery 
mfg-Veriag 
234Seiten, 48 -DM 
ISBN 3-478-O9190-X 




COMMODORE 



C 64 Oscillograph 



ni Siinr.iiLir.^L-ii mifll. iiutSaatbriit 
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;;,; Superbase Tips & Tricks 

"*" Von Korilnik, Wiesa (audi die. die nichi im Hand 

Verlag Data-Be eke i t =» i " h ">'i >"■:■■ '«['■ "'"i '""* 

284Sdl t n.4C-nM wn,: : c.t :«,. i-L'.> P i-'lri:-ili-.- 
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5 REM • WRITTEN 1966 BY RAII-ES UMBfiCH 1 
B REM * 

7 REM • SCHULUEG 6 - 3501 E9PENAU S ■ 



1 IBS , 1 IBS ,0700, IS23 ,03S£ ,B8B5 
0336,1368,0773,0734, 1005,0961 
1B63, 1689,1533,0796 
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PRINT-PRUEFSUPTE^EHLER ! 
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389 PRINT-JBI METER6 LEFTl TIM 
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Das Grafik-Buch 
zum 128er 

Von Dlirbtll ■ Das folfirnik l.'nicrk.sT'i! 

Verhi Diiui-Rcuki-T "Sprites- zcLsh <lrc SpHi^-Pri 
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n (CAD) tomim nlI , j , se hriutmpfcWen. 



Tdc^Buchs kum iin.i Computer-Kontakt 
ufch onaiiebcn. Auch I hat preisgiinstige 

j jcm LtFsmiiisi ^rch ; Kleinanzeigen 
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Von R. B artel. A^mutvHier 

H.J.Kraasu.R Schriifer ■*+"" |,rl:ll!V 

Verlag Daia-Becker iint^kannics 
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Fliegen mit clein Mikro 



Das grofte 
Computerschach-Buch 
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FREIEAUSWAHL 

3er Pack 5er Pack 

3 Kassetten nach Ihrer Wahl nur 40,- 5 Kossetten nach Ihret Watil nur 60,™ 
3 Disketten nach ihrer Wahl nur 50,™ 5 Disketten nach Ihrer Wahl nur 75 ,— 



MMSERVICE 



LOGICAL 




L©O0OAL 



Analysl.ren Si. die 0«™' !l * ,n . A, fS£" 
"chtig und kombinier.n Sie "WW*-"™ 
komm.n Sie d.r Losung sich.r au(di« Spur. 



Zuge „ ran e„ 8 i«e S d, e , ra ,.0 ] a te *o„n™=« S C„p l , t e,-K« t a k ,. D e,R«h B - 
weg ist ausgeschlossen. 

l,„,er Hit* eine troekenc Kehle Mo. > «««» _» K0 OM v „ den 

•""""Jf^fS ^rPooi.eS.l^Rolltragc.pum.ei.J* 
Tisch Platz genommen hat. Die 3 tragcn 
km and 2 volt ihnen einen Pullover. 

1 Der Spieler im Jaekett trinkt eine Cola. 

2 Links ,om Orangensaft stent ein 0> Wasset. 
' Dieses gehort nicht Franz Beckenbauer. 

3 RudiVollersitzt nicht nebenEikelmmel. 

a . Rudi Vote, de, zwei Nnehbarn hat, si.zt nieh. neben Mag,,. . 
<; rwTeamchef tragt einen Adidas-Pullover. 

9 Die Herren mi. dem Adidas- und dem Pumapullover 

sitzen eintrachtig ncbenemander. 
10. Stein, der ein Pokmemd tragt, trinkt Apfelsaft. 
Dazu wie immer zwei Fragen: 
1 . Wer tragt einen Rollkragen pullover? 
2 Wer trinkt Limonade? 

Schreiben Sie on, anf eine, Postk.rte diese balden Antworten. 



VielSpaBbeimKnobeln! 



COMPUTER-BUCHVERSAND 









BUCH-BESTELLKARTE 
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A ATARI 

INFOS - NEWS - BERICHTE - REVIEWS-TESTS- PROGRAMME - LISTINGS- ALLES FUR ATARI-USER 



Hallo! 

:le Programme imiglich. 



(,!-!•), '^OLliVI 



.".".. " ' . : ■ . ■ ■ 


i ,j, L , ..'" ,; ,; "',„;,. „",,., 


A„^,Kl:mfS4KBj1 I w. i e, 












, re „J,-if dcs Spdchercrwile- 






























si.id Damii M £i mnsiith den 








ALsSi^ielistLsiidtesmtlwfc- 


^■^^s^i^ 


.'™'m r ! ...- : .-''v-iU'. 


■ i i i. ■■!■' 


lidi nkht abdrucken. 


Atari *MM_nibriii|!en r ohm: 








;':;:£ Srii."i' 


Im*»£!£X££ 


|b, L . m.u^i'..I;^i]J ^,-ii.niikn 








Kkinpn gramme; "Sp.i^h mil 


i3ii S .= LL«t'n>!.rB!™i«ii^hiiii 


V^ !hK 








™Xz?-^ r ■ 


1 „;F£ p £2; 


szssst 
























(iKhi cin.t^ill Esdan ,!...!•!: 








Mitmacrie-il 




NEL MB 14 
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Atari 600 XL auf 


^™oh^ 


800er Standard 


'' Da im Aim «») XL allc ICs 


Oit norVoffirrJc B,W«-i 


rfcr «to, a™ W*tf*J,™ S 




,".,.. ■ ..... .... . 


"' 


, Andnungen 


!,„■ ,1a. mil !.,J.«™. J»l! »■■' 


Ik,. 11 Awri SIN! XI. Slit 


■"■'"''."^"l, . ." 
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in, in- (Iptionen-Fenster 



Design-Master 



&m&xt3Mt— |.*:gss 



I Grope— ~- 

■ mire strain wjiele 
5 > EFPIKTE 







i 






/ 



.■T I Uiuki>|'V \l;.*:er jdL^em- 




Kontaktgesucht! 



Der ROM-Switch 






iVI i ■ ■■ ■ 



Awati 

Atari fi(*)/800 XL 



iTP/!5SIW5H 



A M$tM*tl>,%$l:i; . 



:S z*IEit :g » 

utM -.$ ntma :g sechwi 



■ UmMICi • iSETCBLm'z.J.IiMM 7S5, 



,0 ATARI 
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115 USUI 6*1*' 


'?! IF HtfM M» XE(St) W IIEJ6. Ml 


SU FOB <=1 III 7:PBiITIB«j M.HHWIi? ■■ 
Ml IF MU.Kl() : i THE! S.S ' 


174 IF «E>M 1»E» U=U-S5 

MB IF HE*! IBEt Bl <t-» Mil 7*B*,7M 

litt Kii,rii=aiic7*«t' 




™iF*» m>iH IiE " M, " : - 1,w,<n 


!!• IF X !.ni=-l IHE« PKITIM 14,171? 


1128 POUTIM M,!«EtJ;* Mil, IF) 


!££ ES"™Ti""««j=i!»ST II'* 1 "" 


iU! pb'iiib" Mi1 «-...»jn; ko,«o 


i't J™?"'"*"**'* 1 


1m SB/? " 3 " : " En ' 


|LIII!^i,rL,. 


IIS* nOPHKS 1116 

M31? " lis 


7J7 "fistniM 1 !,!:? Mi- 


IKS Bl I w>ui saM,»i*,MZ(.Ml*,s* 


nt posniun mi.ii* «;«!»;- "ittsHi 
7ss Fosmn IgBttm »;-;" 


5bjb pishiM pTiit'-ltWiwrlrail p.i 
:■ ■»■ PB5IIIB* P,l:? fMT'i'FTUtN 
stu pram* p,i:? ■TW.'Pdsiiib* p,i 
11 '*»":P*5IT1«« P.li? TJjfriRETMHi 

It 'TH'IPBimiRP.!:? 'ni'SHIBl' 
Ml* POKE MilFl-IIiriTFl/ISSIttSM 
iin PBIE t9.ia.T(TI>l/23B> 


is: rassSr"* 1 
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PETER'S 
ASSEM6LEREEKE 



Rundum RESET 






.. ,:■! 'i ■ ,, i„ , , ■ . i 



Die RESEI-Taste miwbiin ... machcn. Hag >™s!"™';=-| 



m RESET auf die gewilm 






zellcn SFFFC SFFFD at. mit (Hicheii. 
Pr»assmme< hegionl 



i ira Damals und heule 












RESF1 AblauJ 






RESET-Schutz 



5 kljppi allerdliigi den r 






ResertMcr Platz 



Listing 1 
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33 POKE U.OiPOKE 13,4 

40 POKE 842,12 

100 GRAPHICS 2+14lP0SITICN 0,5 

110 ? ti| "PROGRAM LAEUFT ...." 

120 FDR 1*0 TD 255iPQKE 70B,IiNEXT 1 

130 SQTO 120 



Listing 2b 



EOLJK 


dbg moo 


,run, 




SI A BOOT vor 


KidSS 




LDA 45TARTiH 
STA CA5INU1 




. Ein.p 


un« MKt RESET 




START 


LDA I0LI5T:L Si 


,1„-L1.1 


ENULD5 


LDA IDLISTiH J* 
STA SDISTL+I 
LDA UCOUNT un 
STA COL9K F» 
JflP ENDLQS 






'•;;;;;';;;;■;„ 






Listing 2a 



i NEUSTART BE! RESET 



J REM » P. FINIEL 19B6 

) REN ItHHItm IMHHHIH 

3 IF PEEKM534J-32 THEN 30 

1 FOR A-1334 TO 1591:READ 

2 POKE A,DlNE«T A 

3 DATA 32,233,235,162,0,142,47,2 

« DATA 149,11,157,66,3,1*9,50,157 

3 DATA 48,3,169,4, 157, 49, J, 169, 6 

6 DATA 157,72,3,149,0,157,73,3,32 

7 DATA 86,228,169,0,133,84,1-33,85 

8 DATA 133,86,169,13,141,74,3,96 

9 DATA 123,29,29,82,83,78 

IF PEEKU33810255 THEN 40 

1 POKE J337,PEEKI12> 

2 POKE 15J8,PEEK(131 



X SDNCTL 
A 1CCQH,* 



Listing 3a 



T iMEMLD/25fi) 
ML0-NH'25t 
t!80J:0PEN 1 



,B,0,"Di«UTDKUN. 



200 8*0.7 "•"! 




210 FOS 1-1 TO LENfD* 


STEP 2 


220 K=ASC(0((I T [JI-48 




n-n 




230 D-fH-fH>9M7)IU+l 


-<L>9)*7:S-S 


240 IF FLA6-1 THEN 27' 





> tueuiNj 

I tNEUINI 



270 PUT «L,DsNEXT IiIF S-P THEN ; 

280 ? 17 i? "DOTENFEHLER IN ZEILE 

EK<lfl3)+P£EKUB«l«234i CLOSE IliSTDF 

290 RED i FILE ECHLIESBEN 

300 CLOSE tl 

310 ? i? :? -AUTDRUN.SYS ordnungsgtd 

bb .rieugt!" 

1100 DATA FFFF0CO627O4004020FFFFAD000 

BDE70aAD010iBD,2041 

1110 DflTft EB021OA30CSiJO301>flS0DBD040(ifl 

028S0CA<!04B50D,i;.23 

1120 DATA 4C03OiOOFFFFE202EJO2120i,10 

8 

1130 DATA *,0 



Listing 3b 



Unterirdische 
Drachenjagd 



6502-Maschinensprache 






EinKurs fur Atari-Use 
te eleiclu: Aufeebe etwn Um den I 



Zahlensrattme 









o. gcs Renter vcrfu ? t dcr PC 


Bytes langundbegj 


>i- doppelteBieitedesAidtus. 


null stod (Pegc-Grv 


'- '-lapL-lzcJocriSl'.sratfciJLiioK-i I 




























1 .-in I'lUcrpragrainraMifgerafen 


paf.siiin1.lrii SI ji*. 






hrj. 



tzr 



I «■ | PCL 



|— — -".[ H> 



|H|y| |B[p|i|z1c1 












.... 


.,-.„. 


tHHD 


BHM 


:;, :!! 


....... Mia 
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Turbo 1050 - die Erweiterung fur Dire 
Diskettenstation! 



rediaer. fur den Uk'AituMjk mi: di.-m :.1k1i- -i: doppdlL'Dii-tie.wif-iit aucl 
rn litijrniif: ■■ sdilullhcK'l eintesdialre:. Es i0SI\' !\sclifo!gcnd hobc id 



gea barrel Da* jnflRle 






£rc.Bere Eingriff brachi 



-•Kuiitakl 8-9/86 



16 K-Bibomon 

Multifunklionskarte fur Atari ,8(XI XL 






l€ampp-g>l)op©!)S ft 



»jm«iHmM.uiJl.l.l.».< 





f : m 




i-m 




'tlf.M:'- 



Thomas Tausends Softwarebastelei: 



Das individuelle Basic fur jeden G 



ask"? 


Ekyan 




* Pascal Software Atari Xl/XE 


££S 


kyan pascal fur die 


I'Clhmi 


XL/XE Serie DM 298.- 




kym pascal hrt sir mil DOS 2.5 arbaftendw Compiler 








Jansen-Wirth Sraruia 1 .mo «.:jr,nt si-h ;.: ■-■■■■:: 




ganauso wla fQr dan fortgeactirfttenen Programmlerer 


l!^™ 


fc; 's: b iir^chr>Bll und hat foloonds HoBrisohaflBn: 


,., .;,,!, 


Einbinden vdr AsaemWaisource 




» aidBohmiaditor. Strlngbefahls. 




Atari-Grafik und Sounduntsrstutzung 












M 1 3-stsllige Floatingpoint Genauigkeit 


" ' 


mitTijtorlaL/ReferanzjnlerlBgeri 


















I:;:;-': 


Ow^aiKtflur Ihran Atart Compute. Mi ihram Fachhflndle, 
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mcin VLcr-llhr-M.:rL'.L:i !':■ 






Listing 1 



Listing 2 



Mt »«BC((ntlH,N1li(ILMLDt! 
HI IF fi< )J9 TH€« "? CHMIDi 
til IF AH28 THEN CA-lIin CHMIAIlS 
DSUS 7H 



..IDIKMrt Ml ftTASHABlfc I 

iut Suktttt - inch nich i 
:l L°6i Hot » 



libn-o > ieilnnii > 



31 RESD OiPui II. 1 

41 HEI7 N 

49 REH mgRMWEKMJHSi 

91 DATA 23S.I5S.1.96.23S.127 

19 RED HE-FUG .m .BIS -MRE56E 

61 FOR H'HiUSi 70 112*294-1 

7t PUT ll.PEEKIH) 

BI HEJ1 N 

91 FOR «■ 



ID DiPUI I 



J REM HMttttttitittitiitllttMHiti 

B REX 

II DJKAi(4l>,Bll4l),F(2,II»>,MJIill 

n»i).NEum»i]ii:.oti2>i 

19 P-ltAI'l IBM1 

9 flFM9-42HI.3iftST.i-l 

31 IE AD 0» I B !■ 01 i LB' L E H 1 01 1 i M ■ • ' 

15 IF Dt-'EME" THEN ill 

II Blli.!.LB)-:H»i;CS[(BliLB,LBHti:8l 

51 S-S+L 

II FOR N>S ID 5*1-1 

7! A* (»-S*l , N-B+l i -CHB* 1PEE* IN J ) 

7! 7 fll.01 

II IF AI«W THEM Hi 
91 NEIT N 

III 6070 91 
HI ? ((,01 



111 KIT N 

121 EHD Hi ' ' 

1411 REH HE-PROGRAM FUER PAGE i 911 F C t , BHJ -PEEKI N* 1 > 

1411 m INITIAL II1EHI DM I0FMMIC 921 Fi2,iN). PEEKING) 

1421 RED 531 ? 9,F(J ,H) ,Ft2.BM) 

1431 DATA 1, 4, SI, a 535 M-BIH 

I4el DAK ItS. lit, 2BI. 144,144.42.149.144 941 IXEHIAI) 

1471 DATA 133. Hi. 12. 142. 23!. 171. 1. It 511 ILTIIM,M«L>1I 

14U Iftffl 21B.1I.4.2H.I.23B.15.4 971 (HAUL 

1441 DATA 141, 1, 111. 239. 29. 4. 2M. 217 511 B-BtLB*AF 

1911 MIA 238.24.4.14'. 192. 77. 24. 4 991 (I-"iS0TO 31 

1511 DATA 2M,2!I,J2.49.t.lH.!)l,!!l ill SRAPHICJ I 

1S2IMTA 94.IIB.294.191 All AH 

1511 1A7A 224, 2,225. 2, 1. (> 421 FDR H-l TO LENIALTt) 



721 BH^l>CKR*IASC(Sf(L,LH'l2Bl 

731 HEUIIAI,AZH.)-B) 

Til (142 ri. 

791 RETJRH 

BH REH ...UHDEIHPKEH 

Bll Al-lilH-1 

121 »-ABC(WLl[flI.fl!li 

931 POKE 9, A 

141 IF A) 121 AND B«24BI THEH GD9UR 5 

■I 

HI S-SHiAMM 

OU IF OI-LEmNEWi THEH RETURN 

971 HTD B2I 

911 MHiFOKE t,F[|,HI> 

911 S-S-iiPDlE B,FI2,BM) 

921 BN-lNtl 

HI RETURN 

iih print •m u* ;:* mutt" 

1311 1 -Nflchii Hurt ititt REM» '| 

1921 INPUT II 

1931 FOR N-4 TO I STEP -I 

1541 POKE IMBt99,AKlBI[S-H,3-H)( 

IIH NEIT H 

IIH BHAFMCB I 

1415 1 ■LADEN 9IE WIN HIT [HREH NEUEH 

llll? 'LADEBEFEHL DEN SAVER' UNO' 



il ? 'iPEICHERH Bit HIT 'RUN" 
31 7 'DIESES NEilE BASIC' A!!' 
II END rREM ...31EP BLElCHi 
SIREH , mj •DtfAUER.Nt- ...!!' 

in 

91 HTA REM, U4TA, IMPUT .CQLOB.L 1ST 
It DATA ENTEN,L£T,]F,FM,WIIT,E»Ta 

!» DATA SO m, 60 SUB, I SAP, SfE. tCN7 
51 DATA C0M.CLD5E ,CLR, D£a. Ci 1. ENI 
II DATA BEH.DPEIMMD.SWE.STATlJS 
II DATA WTE, PD HI, 1 10, Oh, POKE 
it DATA PRINI.SM.READ.RESTOKE 
'I DATA RETl«N,Rl»l r aT[IP,POP,7,E€l 
II DATA PUT, ERAPHICS.PLCT.PDBlTltM 
It 1ATA DOE, DAAUTD , fiETCOLOR , L DCATE 
W DATA SOUND, LFRI»T,CB»\l£,nilAJ 
II DATA ENDE 






"Sprich mit mir" 



i > ■■ i 
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*.•:( 14 . - -- ...... I „■■•! * . 

IMJ . i.>llii. H.| III "lib: -'Jb - toua 111* 

imii« pVi i.ia.' «*:- - nmuoa r ia:e pbaiiim /.' > n.'".ioir to ajp 

ijm 1,010 is'i «a*s nnuw !.'." fti'imi to ifrw 


ion wwo bittiwiw ».».».» u>'( i«a 5o;o fop l=i to lbn/13 lioiino o,roji,io, 

IbIS rja III ID » Hill . .0l«0 B.8.B. D):i BUD ISKI THEW ' 5 

lb" BCn •* lOHb icillit '■ 50i» IF P£E*[5JI7))-J THE*: 5 

I >B1 tUlJSirNH H)-.' 11 *'»»."*-i»» 5BSB 50IWS t,8.8,8:50HRB l,B,8,S!f8J Z 


1MB tUHPJ MNrliU a.B.O.»:Uiro UB 18 ; 72 ; t9B,lt ^ ^ ^ ^ ^ ^ ^ 


ik! IiittA"" "*' ' " "*' "is soiiRrf"a.2S5-(iw2),e,. 



Computet Kontaki 8-9/! 



*** Wl-hiUm **» 

Die SuBEr-HilfsdishEttt fir In™ mil! 



IISIMi.b.nr ■ ... sind 

: BEIC-Enieiter 



: Tolls Hlilsprograrrc uisp 
< nlitziiche ■IS-F'jc-^ir? 
'.'^"Iiits'Shri".'., .r 29~ 

W 



S! 




BKI 


H 


iti 


3* REM 






iim 






a tin 












)i m 






;b se» 






98 Rid 






111 S'll RESTORE III 




i2i m 


A-IH4I TO If? 


iiREAD [i PUKE 



.£l9-BtDiHEIT I 

131 IF K«3 THEN ? ■MTSM-FEHLES! 

211 Mid »,l», HI, 112,1 12.112, l«,l, 

Hi. 18. 38, 38. 38, 38. IB. Si. JS 

211 MTA ie.JB,3e.3S,38,3e.38,!S.J5.!S 

.31,134.71,81.4.65.1,141,141 

231 DATA 121, HI. 232.1, 1H. JI.HI. ;si, 

1.149, 146, 111,9. 111,119,1, 111 

211 DATA 7.141,169,141,141,49,2,169,1, 

111.41,2, 149.1.141,5,212.141 

241 DATA 255,1,12,211,142,149,14,141.! 

14,!.I49,53,I4I. 194,2.149,21! 

2M DATA 111,199,2,149.118.141,197,1,9 

4.14.1,244, 142, HI ,119, 7,33, J! 

241 MTh 221,141.31,111. 96, 111, 47,14!, 

142.149,7,32.92,228.141.31,211 

271 MIA 96.119,115,111,1,2,169,114,14 

1. 1.2, 149, 192, HI, H, 212,(1 

211 DATA 32,229,114,169,1.141,249,6,16 

9,1,141,249.4,149.31,141,247 

291 MIA 4. 12, 31, HI, H, 41, 144, 12,162, 

113, 12, 123, HI, 12, 225, 143. 12 

Ml MIA 139,143,149.21,141,251,4,32,; 



9.144,173,121,2,211,11,241,249 

111 DATA 12, 73, HI, 12, 97. HI, 141, II. 21 

8, 173, 4.2M,!II. 1, 241,35.291 

III DATA 1,241, 17, 211, 4, 241, 16. Ill, II, 

211,12. 216, 143, 173, 7, HI, 211 

J3IMT. 1,241.3.74,199,111,173,1,111, 

211,144,219,211.173,211,4.211 

Ml DATA 21, 241, B4, 71, 199, 141, 76, 77, 14 

1.149.21.141,231,6.32.29,144 

3N DATA 74,214.141,12.234,141,12,94,1 

14,174,211.4,161.1,189,226,141 

361 DATA 157,1,12,212, 211, 19!, 9,219, » 

4,119,141,141,1,211,169,1,11} 

371 MTA 1.141.1,211,161,21,162,1,21:, 

2M. 253,1 36, 2ft, 219, 211,1. 219 

SI DATA 217,119,1,141,1.211,141,1,211 

.214,249,1,171,249,1,241,19 

I9IMTAB9.74, 157,111,74,121, 144,12,2 

14,141,12,111,141.32,159,149 

411 DATA 74,199,141.121,12,216.141.12, 

91.114,12,131,141,98,169.224 

411 MTA 141,214,2,149.1,141,197,2,14! 

.1,141,17.2,141,8,289.149,141 

121 MTA 111,49,2,149,149,141,49.2,149 



151 (ATA 7.32,92,!2B.9i,!lt, 173,255,6. 

219.14,173,7,141,211,229,219 

491 MTA 7.17J,B.I4I,2I1,I51,2II,!9,21 



■ 



,8.141 



4.115,11 
173.132,3,219,251 



431 DATA 14I.2I5.H 

,71, 119, HI, 112, 112, 111. 

441 MTA 112,71,141,141,112,112,2.65.1 

49, 141, I, I, I, I, |, |. 19, jj, « 

151 MTA 17.1,47,51,37,51,1,1.9,1,1,1, 

•1,41,31,51 ,41,47.16,11,1,35 

141 MTA 1'.11.II.41,17,32.17,J6,I,26, 

l.l.M,l,l,l,l,l,I,l,l,|.| 

»7I MTA 1,1.1.1,1,9,1,1.4,9,2,71,1,42 

.1,92, 2, 42,169, 99, 162, 229, 169 



MTA 19.169,9,141,251,6.24,171.7. 

41. 115,21, 14 1. 7, HI, 144.1,239 

511 MTA 9,141,171.121,2,211,11,241,99 

.211, 7, 241, 113,211, 14, 241, 12! 

521 HTfl 211, U,241,BI, 173,233,1,111. ■ 

,212,76,99,223,216,173,233,6 

311 DATA 211.14,173,7,141.291,1,219.7, 

173.8, 141,211, 1 46,241,24, 211 

341 MTA 255,6,14,19,169,7,141,253,4,5 

4.171,7,141,231.29,141,7,119 

559 MTA 176.3,214,9, 141, 171, 121.2, 211 

,11,241,27.211,7,241.41,211 

561 DATA 14,241.51,211,13,211,93,171,2 

53. 1,14;. 5. 212, 74, 98, 221, 74 

571 MTA 211,142.76,191,142,291.212,6, 

173,212, 6, Ml ,1,218,171,233 

591 MTA 4, 141. 3,212, 74, 98, 221, 219, 212 

,6,171,252,6,141,1,219,171,235 

591 MTA 1.111,3,212.76,99,228.173.251 

.6,211,29,241,16,162,1,199,1 

491 MTA 82,1)7,255,81,232.224,128,289 

,243,216.251,1,171,233,1,141 

611 MTA 1,212.76,99,228,171.251,6,291 

.91.241,14,112,129,199,1,12 

421 MTA 157,1,92.292,298,247,239,251, 

4.175,255,1,141 ,3,212,74,98 

411 MTA 221,169.224,133,129,149,1,111 

.129,111,111,149,71,111,131 

641 DATA 14I,I,I77,121,I45.13I,2H,2IB 

,249,231,129,231,111,163,129 

451 DATA 211,228,219,237,162,1,199.34, 



tHMTA 255.2;3,2H.255,25t,2i!,252.! 28.1BI. 1ZB.1U, I2B, 174.128 . 1*3 

«,!«,2!*,],l5,3[,ll,i3.12; «• »«» l2B,L!8,12B.I2B,l.l,i,l,l, 

Til Mlft 1H,2S!.H).SH.I2J,«.«,3I, 5,?.l,l7,25,2t,22,l,H.J7.1 

13.7 . 24B.S3I.2S+ , 253 .255. 2M llll W" i,l,a,l,l,l,l,HJ..35.«,33 ■,M.JB.3B.M,sa 



I 151 I 82 232.2M.12I,»B.I« ItM BUT* a.«,«,SI.I.K.I7,t,l.ll,5 ,J8,SB.3B,38,JB,38.38.S8,».I 

751 m MM I'i t7 2.I.U.U1.", Ml.lMi,44,lF,tt,«.37,M U« »«» 1,1,1,1,1.8.18.18. 

218 It!. «,I»L, 152.2,171,25! 1151 DATA 33,U,4U7.I,33,W.S4,J?,37 e,JS,31.3B,JB.38,38.B.I.I.I 



( 2 94,T!,l.,,l,l4i,»,!12 M BBIB !B,lB,M.St,B,B,6,B,B,B.B.41 8, SB. IB, IB. BB.JB, «,«.«.* 

»hS|WW .a,.B.lB,!B,JB,!B..B.!B..B l.» UII UWWW 



•i'i : 7 I7..10...I !B,.B,JBJB.H,!B,!B.!!,..,aB IW Bill B.I....JB.JB.SJS.SB.IB.JB. 
!J I . "l.u'l.llJ.MIJ «• «lt B,I.B,B,B,B,JB,1B,1B JB,IB,I UWHM *■ 



5B.3B. JB.39.B.B. 




■o ATARI 



Computer Kontakt 8- 



13 m I 
It RBI ! 
15 REM » 



ii REM ! 
!l fit" ! 
12 P.EH ! 



1611 DATA A1ID8MS*3611CIB5B31>3333522 

■ B3B3235332WBIClClEI>A4l«D4fi>3A4CABD 
C3)22IFD212t4722AJEF31!B2>,9*4 

1121 DATA 9422«CCFM32lil23ADlFl>Bi1 
KfHFWK'tSFmFStatMFMK'tiMEJM 

■ cCFK12MD23A2l»D'EiJW>7i.r5! 

! J 831 DATA 2IWIDCAHF3A15SBD7FIDA9SM 

! dh i C2IQF ; 3 l ii J c intmnm u sc i k n t 

! i:ciM(EHCii!CC8Mis4c«a,M7 

! JI4i DATA ACI!2CFBI34CAC2*;iFD2)Ft]34 
! Clf 25AIIB BCt 28 3A2MBE 1 BB 33E 44 8 31 [5 6E' 
• 2>F02aDMilC«i2>A4D<BDC5t2,?7? 

■ IIH DATA A2BA92lMD2B<32MM2)FI2t.A 
IMS 4 S4 A8I D! C4 A I JA5 1 »'8«5 1 1! DIE EtC 
FAFC2»F721T:F AEFSBf E8FB11BE, 143 

' list DAIA FBBFECFBBF6I7D1DIDH4F4B4S1 
B34J22C3l323A47522E3MIH!2l4tt] 732141 
54 * ] 52 1 9 2H DtfsE 7 565 312(43 , 1 Ii 
1*71 AA1A 29313«8352«2792ltE2E4Bilb 
7M6161*E4E2IM2I4F!I544?4F4EIB1F4241 
! 3349432I5345«43(3:>4IB1F4D,135 
! 1HI DATA j,S*E7;*3IIi35t4l52MlfilF4Ci 
! 1 a 4a5*E2MI4 41A 2A2E2 A 4 4 4F 532 E53395 32B 
! 354 25B5D 6A7 B85!2AlAMStB 15 , 1 2 » 
■t 114) DATA E2FIFDIA]B2)324I(D3A*875B29 
S9 DA ASBC: 1 2E BE DF AtS 1 52 2 31 3M A5B s!7 28 B 
B HAH B JE2DBDDEAT 915 1 2 2121 , B45 



;):!>«;. 



in DliHliOKN ll,B,l,'DiWllDRUN ..- 

IHIHMIHHIMIB1 II I II IB 1 1 1 1 1 • 1 1 1 1 1 

■DBJ-Flli alrd ]imrifft,,,,'i? >IIIIlBlB!>lllBlBll2l!l2B2,2f7 
Jill DATA 1212)212121212 t- ■ 
2I2I3I3I3I3FB2IF322I3I3I3I3I3ANIB452 

A2 1 MHtl A8II2IF 1 24A9IIBS H , IH 

1121 DATA A417B!54A24W421AI8l!IF12tt 
IA2llfl9eC1D42B34C5iE42IIC22A2l)A9)39[ 
42I3M7 19D41 B3A921 W3B3A9 , 954 
113) DATA I69D4AI3A4IB9D4BI34C54E4A9I 
B83CF 212 II 2 1 MUD 1 F PIC9I 3tIF *A'F F 85CF 
*IA9HBSCIiA92eB5KA4MB5CC ,114 
1KB DATA A21I»CD?D44B3A!CE'D4!I3(9F 
F7D4B83A9ll9D49BSA9«9t42l3Zi:tEtlM7 
2)1(2 2E 1 EC HWCiCC 4£ I C2 2A5 , 1 4 5 
m. 1151 DATA CCBSCFFI3DA9H93CDM28(3CEA 
|rin . t ■ MM 4 5 5CBfl« A flO» 1 SSCM 4 C B BjI CE2 IBE ?»Et 

22| m ' EBA5CBC9IEDIFIA53m27DllS,S*5 

ItBB DATA FfFFI12IFB2IA9D4BDC!>l2eDE(l m t DATA A99B21B£2B2ID922t:iEFDtDBA9l 
!(DFM2A51IZ"FB51BBMEB22BFD2IF13W4 HJD4B5D3!l7123*llBA3CD*91iS5CDASCEi» 
D4BDC5«2M2JA92B6IH2IF124,339 ||95CEi)1BA!3B?D7D21BSeDA3,22B 



HAH 

141 FDD 1-1 Tl LEklDll STEP 2 

19) ICABCtll 1 1 ) 1-ttlWaCflll tWIH-M 

111 [•|H-IH>4lt7)il*tL-a> > )li7iB'9tDl 

PUT ll.DlIF S>999 1HEN SiS-lHA 

III BEIT 1HF S"P IKEA 121 

181 1 i7 17 ■Dltmtlhlir In Itill '|P 

EE<IIE3MPEElll84!i236iELC'BE IllBTOP 



2IB CLOSE I 



Etii'i;--? 



B IB) 



1171 DATA 597DBJ21BSF422EF21CEA9K9IC 

14 4SI7 1 [ IB B ! IF 7 b BAD7 8I2CTI I F B 1 3A 21 8«8 

7FBBMFDCnDIFBAE7BI2BDTE23,273 

1KB DATA BDFCI2AEFCI2»'" : FBDFEI2ElliD 

IMCiDSlll!MCcaB!4D3EM7M«EMH»S!l5 

4SCCMI28SMSBIE»HMDSB,7I! 

1191 DATA B9Ba9tD518I9B4[>SC6CBCB9a38E 

XT; J*F5E(lf DB1 404DK9C 8CB8 IDM3B5E 5CC 

4H 1 84339B9B9B 1 IF WJDtCSlH , 771 

1211 DATA FIIEAiD42IE*22AtD32BE622A31 

58914HFFF FI7F FT- FFF 8 1FFIFIE A 4 44BD7 C 1 D 

*93ASTj71IM99TiA2»19D7EltE0.B3l 

1211 DATA 1IFAMI2IKM12MSISAUHFII 

t2»8I2CAMFttHK2H!1CllcraffllWE 

]DCIE8EIIBllflA92E9D7EIDAI.I7 

1221 DATA iBBlOTDTFlDCBBlClilillBCIB 

1 114 DB i 1 Di)2l 1 E2 2«2 I IAW 54 14 213 A97E 4D 

W3A91DFI23ia2m(SI3MM,44* 

123) DATA 9D4AI3A9H9D41I32IW13IIEA 

2 1 1( 9119 J44I SAKE W5I 3A9I4 9M8I SA 9H 

1 14 9)3 A4 B 1 4 D4 211 2)5 tE 4A! IB . 1 58 

1241 DATA BD«I34B2IICZ2*S*I7D2I212I2 

111424 133494 12 Bi 4 73 71 2(1 Ei 4*3467 1 2 It 3 

i 9SE s;*373i SiBi I *E 7 4 15742 1 . 3 94 

1251 IATA Z121212M7D2I2I2I212I2I44* 

17J2WC*li4i3iE2t4473742B4Et9iJSB;t2l 

iDtF4W7iC*943*B2l21212l2l,tl5 

1241 DATA B)7D2821212lt4444Ci32l49737 

42H,Ei4i34B7421il75ii284413722Ht447! 

*B497t 74*52)2 1 2 1 2IMA22BA9 . Z4B 

1271 DATA 21MMA234A924D1E4A2TDA9Z1A 

HH455AB179454A)aB2BF124IBA53B*91BB9 

CDA39944I3 89CIAI U85CF AI24 , 338 

15 El DATA IICD44H9 >CHeBIIF7A2NCADIF 

MiMF ACt IF DK 92 8EC 21BC231A22 4E 332IB1 

C! ABIB 81 C J84C D85( E M C Jl 1 CD , 414 

1241 DATA FinC91BFII243CF»BE2IEtCBD 

IE 1* BM 14 a DC 58 2A4I2B5. J 7A 23 BA4 25AM12 B 

FI24A27CA91B4CDF2l71IDII3t,193 

I3H DATA "1B45JB34322C3U23A47322E! 

I3A52334E2 2IW9I2S35 2A97 D2IBE2M94 491 

Cil2AI»9E£B128CFII2«SB£FC,3i3 

1311 DATA I2A21M47C9D44I3S9ID4TI4SI3A 

9IF9DtM3A4H9Dt?l3Atl32[ADI22CD*IIBB 

9B 48ACI22C 88 484BA3 1 1 14 B183 , 145 

1321 DATA 1I8WEB24CA919HI2E1I2H2I. 



ATARI ST 



Easy-Draw: 
Einfaches Zeichnen fur ST-Profls 




in li m H ndb S P 
englisdien Softwarehaii, 





MIDIplay: 
Nicht fiir den Buhnen- 
einsatz zu gebrauchcu 




.mifcrt Mmr-Pri>,:r.iiniiu: ,:. 



Gamptrter Kontakt 8-9, 



ilHu'l.LTi. Jie aufeigemlhalidi 







Michael Gehrets'RAM disk! 



ATARI ST .s 



Kaufhaus fur den 
Atari ST 




. SERVICE und 



Computer KonlaUt B-9/B6 



Bei MITAKBEm Rk(ui:i-i-. 
■■■..■■ : ■ 



Kaufhaus 



ATARI ST 



-"=BotDKy 5,6: B rint "2. Pspipr" 
B B atn,y S.Biprlpt "3. letter: 
."igotoay S,ia 1D rint ''4. StUts" 

It:':":,/'"™ 



■■ssr, 



sass s 



1 r™' Ln k ^r r^ lg ^ 17BB rt: sB5S* " rlnt ^" ,for ' , ' Dri " t:Brlnt 



■%;."■",., ,„,,, ,».„ „, ,„„ 



'•'is:'",'.; 






"Ill s«'-:;"^™>£" 

3B7H if « - B than 1BBB 



■**"!i b "l 'print UBi, ' B "»•»*#**■ #»"ilbk 
5520 gntOKy 15,3.print using "##.»#* 



IOhrenschmaus: 
Soundmachfne 

■ w l.MB.Wr i 29.80 DM 

2Bar9eldlos: Slotonachine 
Bert.-Nr. AT 2 Diskette 29^ DM 

_■. Vierfart: 

TJ Atari Power Superbuch 

"■▼ BeEt.-Nr. AT 3 29.- DM 

« Nachschlag: 

* B«t.-iir.AT4 '':' 29.80DM 

SZuschlag: 
P'skzu Hexenkuche 
fie«fc-Nr.AT5 29.80DM 

_ Fix; ATMAS-H 
I? Macro Assembler 

Best.-Nr AT S Diskette 49.- DM 



f 



■i Oeistsparend: 
^ ATMAiToolbox 


An*», B .„.n, MIUI MllnclMwJl . 


- 2 


"*** 


Bert.-Nr.AT7 19.80 DM 

a Praktisch: Monitor XL 


E=f 


1 Ft*- EE 


ff.5 




■*"*»* 














"""""-- 1 " D rl '*" ' '<■ 


_ Brandneu: Design Master 


a w™«™. 


Beit-Nr. AT 9 Diskette 1 9.80 DM 


^MWft!>^XCiw"lTrixTlLM M.n 



TI99/4A 



Computer KontaKt 6- 




Jq^TI 99/4A 



Liebe TI-Freunde! 


SSSSSS." 


Dafl dwteBdtttHHiSlW irdSHsrAnsgabe whiten: Xeu- 


Dot o U n *um M.tft di=«t d"""*™* *">*** 
































sfhm'lien ^i P y™ i'm,- ^iv u,; l.'S-Kri^t-f.K >W- 


































TI-Software-Hitparade 


;?,"« hi"' baa- S'.SS.'S" 


^I^SftS^SS^^ 


Die neue Maus! 






gib.cswi^rcinSrftwartp^t. 


EinNagetierfilrdenTI 


L Teniiis (3) S,AS 


Jm£^££+5Z « tnt^ 1 "^ 


I. 11 Artist (2|A,AS 




3. BurgtTtlme (5) S.MO 




4. DM1UW (8)A,AS 




5. Jumpy HS.AS 




6. Artillcrle (4)S,BA 




7. TI-Rnnne. (1)S,AS 




H. CAB-WARS (-1 S.MO 




9. Return 1. P. Island (-)S,MO 




10. Disk-KatalotUCK) (-)A.AS 


,',; k ".tVL ."^r^ i;^.;; ^™ ^'^ -■■■» 


Der Gcviniier aus tlcm lentcn Heft: 


■„, ir * 


Hon! Anuth, Hulttro.« 1. 4650 (irfsf »klKi™. 




^T¥W«B»a K W«» : Wi<^tort^dn»S»w: 


s™?'^" ^t^r^in 


Dcpt. Allgemcin + Software 












S "°" K " 1 " 71 


(inj-.-ieucn '.'rul .IliieIi Prudt KiNM-mrijehausc ™i 



Kuizhssdn-oil 
t-.ui.hnt.^ in 



Tl Computer Club 
Baden (Schweiz) 



Darf es etwas mehr sein? 



ie 128 KByte GRAM-Kiirte fur d^n T. 




^i-.n- 1 ":-'i .:r!c<lij!i 1^ 



^Eri^toopt Monopoly 

FtlrEnt. Basic + 32K 









n gibr. Die cinzige Quelle, 



Monopoly TeUl (Teil2indernachsIcnCK) 

m RANDOI-.IZE :: OPTION BASE 1 :: ON BREAK NEXT :; ON WARNING NEXT 

B S),NAME*<6>,fA<6>,PO<6>.ZEG<16>,ZG(16).ZEil6),GEF(6>,ST<4B),HH(40),H<6 

UfcALL > SCREEN<2) : : DISPLAY AT(15.nERASE ALL:"1CH DEFINIERE MEINE ZEICHEN" :: 

FOR I=B TO 11 :: CALL COLORCI ,2,4) : : NEXT 1 

13B CALL BILD1CBO):: CALL CHARSET i! FOR I-B TO 14 :: CALL CDLDRU ,2,4) : : NEXT 

140 CALL SPIELERCZS.KR.SP.NAMESO.BQ.FAOJ:: CALL SCREENU) : : CALL BILD2 Si HEN 
15B S CALL CHARi8B, y 00030707030703071F03070F3F7F7F0000C0E0E0C0E0C0EBFBC0E0F0FCFEFE 
^Sb'fOB *^ TO MENGE :;'«U>U>-MBW !i P0(I>=1 ;; SEF(I>-B :: CALL SPRITECtll ,8 

w^'tJrk'srR'iTsrAiiJi'nv. . ,. sT<„ lS ™,.s„s,, s „.,, 5 m 1 >. s 

T(1B> STC21) ST<23> ST(31> ,ST134) ,ST<37> ,ST<39>=-1 

180 FOR SP=l'T0 MENSE :: D<EN(NAME*<SP> > : : DISPLAY ATC5,2I-D>SIZE<D> ;NAME»<SP> : 

■ DISPLAY AT<7,13>SlZE(8>:USiNC "" ' 

190 CALL STRASSECP0O,PR,SP r U): 

Wl W2.GEFO ,P0O ,GELDD,NAME*C). 

i ■ DMFVTER- THEN 228 ELSE DISPLAY A 
TTE" :: DISPLAY ATC19,5)SIZEC1S> : "IRGEND EINE" :: D 
"IIa™!^,*^ IF S=0 THEN 210 ELSE DISPLAY MC 18 5>SI2E(16>:» X . DISPLA 
Y AT<19.5>SIZE(16>:" :: DISPLAY AT{20,S>SIZEC 16) : "* :: IF K*69 THEN L-0 .. GOTO 

Z20 9 Wl-INT(RND«6)H :: DISPLAY AU6,27):W1 u W2=1NT<RND.S>*1 :: DISPLAY AT( IB 2 

?' -w'/ ■ ■ U-WI+-W2 ■ ■ DSSP AY ITU 5, 27) BEEP: USING "#** :W ; : Ir W1=V2 THiN W4-W4+1 
230 IF'w-3 OR BEFisP)M AND GEF<SPX18 THEN W.tfl.tM-B :: CALL GEFAENGNIS<FAO .S 
^fr'SEFt^m MSB a#(SF , XlB : THEN 1BBB ELSE IF GEFCSP>"1 THEN GEF<SP)=B :: G 
OTO 200 

250 GOSUB 358 ;: CALL PQSITION{»SP,Z8,Sg> : : GOTO 298 _-,« 

,:■ EO-SP-IB<aS AND ZEILEQ-SP+18>ZQ AND SPALTE 

ffift^'ftffti^HM :: m :: GOTO 290 ELSE IF N> M 
^r^^'hSPS^T^^S^ PS-TEn ., GOTO 290 ELSE IF ZQO0-S 
P TH=M Z3-1B-SP ■ ZEO=0 -- SPO'TEH ;; GOTO 290 ELSE 260 
298 CALL 5DUND<-50,4i0.0>:: CALL MOTION<*SP.B,B> : : CALL LOCATE<*SP,Z8.Sa> : : CALL 

3BB T C°LL*MOT?ONi«p!8!8??! CftLL LOCATE<*SP.2E1LEQ-SP.SPALTEO-SP> : : PO(SP>=P01SP) 
+w !; CALL STRASSE(POO,PR,SP,L'>;: GOTO 390 



310 DATA 176, 194,178, 170,176. 154,178,138, 37B, 122,178,236,178 90 178 74 17B SB 17 
328 DATA , 154,18,i38,lB l J22,lB 106 18 90 18 74 1H 5H in i-> ,o « ,„ ,~ .. 

330 DATA 10,42 IS 56 10 74 ' B 9B B IBS ' b !?•) in ,io i» ii 8,16, 1B ' l8 ' IB 
340 UATA-26,194,42 194 56 i94'74'l94 50 ' 1 qa 7 oc , si , ik 1 of , il ' ' 1S ' 194 

363 RESTORE 310 :: FOR HE-l f6 P0(SF>«l :: READ ZEILEQ.SPALTEO :: NEXT RE „ RET 

GELD<SPH4000 IF PD<SP> = 1 THEN GELD<SP)= GELD <SP> +8000 ELSE IF LC=1 THEN GEL0(SP)= 

O^EO e z6;> G ERE UB GEi e | T (> &ftV5 PR " ™ EN CALL WWWf.IWW** 

?l>.™ «*? E STEP " 11B ;! CALL ^NDCeTTnt'I*! ■6?Te.WTCE»1.4> 1 l.lr*T<E.i 

43o'lF PR=6 THEN TEM=-B i; KQ=1 

•--:! i ; FR=7 DR PR=G THEN 350 ELSE IF Pl?=4 THEN W1=0 ■■ "All WFim™i« C »-, -„ r 

»8*S f K''&§Kfc"fKS i ' " SEF,SP '" ™ = e ™'><"™ ™ ' 

f P'=™Ii:e; f i:ii»i; she™ ~ else - 



f pq<sp>=g or P0(sp>=i3 o 



>-29 DR POtSF 



JJO [f ,.,-,, .,, ; .,-:w5 n , h:H D!SP ,. av ATU?,5;SIZE'16>-HH(P0(SP>)'-HAEUSER' " OISPI. 

hT!iB ELSe^!7S S EL^ , 32| e ELSE IF NAME * (SP),S "COMPUTER' THEN IF GELDtSPm THE 

518 IF RND<-V THEN 1000 ELSE 530 

HI ? aL L l 5 E I^, h ; V c '■' K - 7B " HCN lee0 EL5E IF K<>74 THEN 520 

PWU°eSe KmS? K ^ 1MeELSE ,F P0<SP '< 21 T «* «-2MB ELSE [F MKSPX31 THE 

5 D?SPLAY L ATU5 < R ?4?7l!f E< M^k 1 7 RE IL^ ml «' :: DISPLAY ATC 1 5 , 5>SIZEC 1S> : 'DM" :; 

LJJ^KLAY Ai'-15,B}5IZE<4):USING BIIBtt" K ■ ^-T-hh : pf 1 ' r F ' ' 
550 DISPLAY A i ' 1 6 S^iZE' J6>:"W!EV1ELE HOUJSEP- ■■ D'SPLAT A T Iia 5><;T7F( 1 fi> . -wrv 

h';S;-stlieck" :: dis-lav aT(20.5)Eize;i6;beep'"£rstellbar =; |5>S1ZE( ,6> ■ NDC 

NAMEKSP^'CONPUTER" THEN PR=Hm5tRNDi+l GOTO 580 

570 ACCEPT AT<20,20>S1ZE.-!>VA' ir:M--f--IG!T) PR ■']> PRV= THFM 57B 
580 GELD(SP>=GELD(SP)-PR.i- ■■ lll-KPn^P i 'n^Pn.QPM.i I„ E Mn S T B 

a'wr^A'arsi ?;e ra<sp " 2s » "> ™ ™ sjysv »<■»-. 

«« EpyT^ r °^r' 6 7C ^^ V ' EP ' 8 : !F S * ! S^ST<PC<SP>>THEN K-K*J 

^S E S P S , - B.H-0P- „ „„,„ , 9 „ E 

S V F E r jj ISSI.Sii&flif «J:-»%5S ™- < : •■ 

6J0DISPLA? , A- r ^" P --^- ,.^g«TiP0?S?V»lGELD?sfi<: ^.BeS" * 

69B DATA Ei;i43.E2, 143, Bz'M, 62, 64,139 140 

H(P0(SP)V- READ P M<?>'Mt2>' HE N " E£TDRE S8B ELSE RE ST0RE 69fl 



■ fc. ',b,u, iB.n .0,0,0,0, is 17 e a 28 21 

: FOR L=l TO P0;=P! REAr ' 7 -' '■ ■ M ■< , L 

S, S !; Z ' :! S I?^ :: ZI . Z2s 22 ELSE [F P0(SP)<21 THEN Sl.S 
I, U,r 1 " Z1 :: S2 ^ z? :: 21,^2=3 ELSE Si,S2-24 

,Sl,M(l)>:; CALL HCHAR(ZZ,SZ,M(2>>:: CALL SOUND(4E0 E60 6 























DATA I 






















760 










GOTO 1 



,oe TI99/4A 



790 RESTORE 820 : : FOR L'l TO 

800 DISPLAY ATC20.5)S1ZE<16>; 
«;k> GELD(SP>=GELD<SP)-M!K 
?IJ QOTQ ;000 
838 L*'» H, 0,0, 0,0, 0,40, 200, 6 



838 :*I» 500, 10E 



SS3 DAI". 0,0,0,0,e 



S 328 1600,4400,1 



<w : ~-,:-.- .230BB 
?-.e ;■-■ 140,2200,6 
">■-.?.;. 0,0, 0,0 



512 c»l» 560,3000,9000,20 

*2rf * ra. 700,3590,10000,2 

£023? 

93e DISPLAY ATC13,5>SIZ£( 

V .. DISPLAY AT(1S,14>5 

OTES" DU DIE - 

940 DISPLAY ATU9,5>SIZE< 



) , 1200, 3680 . 10000 , 14000 , 18 



3 , 3000 , 9000 , 12S00 , 1 5000 , ! 

15000,19080,0,0,0,0,0,0.280, 1400,4000, 11008, 15088, 1 
90 , 20000 
3, 5003,14000. 17500, 21080, 0,0, 0,0, 0,0, 360, 1800, 5000,1 

9,22008.500,1000,2000,4000,0,0,448,2200,6600,16 

5, 23088, 0,0, 0,0,0,0,440,2400,7200, 17008,20508,2 

i, 25500,520,2600,7600,16000,22000,25588,0,0,0,0 



STRASSE KAUFEN" 



i,10>SIZE(3)BEEP:" 



:yo 



SP> = 'COMPUTES' THEN IF GELD(SP>>0 
' THEM 1800 ELSE 980 

■ :: IF K=78 THEN 1088 ELSE 1 
: GELD<SP>= 



1 970 

: DISPLAY ^ 



PO:SP>>*SP :: GELD<SP>=GELDCSP>-PR : ! GOSUB 1 
:6>BEEP.' VERKAUFT" ; : GOSUB 1170 :; GOTO 470 

998 DISPLAY »T(18.B>Si; I X ."jEKOMKST" :: DISPLAY ATI 19, 5>S1ZE<1G> : "DM ; 

FP ■: GELDtSP)=GELOCSP>tFP :: FP=0 
1000 GOSUB 1190 :: GOSUB 1170 

1B10 IF RU=0 OR KD-1 THEN 1040'ELSE IF GEL0(5=!>a f Hi- N ::[SPLAY AT< 18,5)SIZE<16> : 
■HABEN BONOS" ELSE IF GELD(SP>=0 THEN 1040 ELSE OlSPLAY ATC 1 8 , 5>SIZEt IS) : "SOLL B 
ONUS" 
1020 ZINS-INT(GELD(SP>/100«ZS/10>'10 :: DISPLAY AT(19,5)S1ZEU 

:-l ■»(»»:■;= .'J(SP)+ZINS :: GOSUB 1198 
;330 i'V> A- A-(20,5)S1ZE(1S):"NEUES JAHR- :: GOSUB 1170 
:343 JJ » ■:■■-(! IF W1=W2 THEN GOSUB 11B0 : : DISPLAY ATU9,5>S1 

NFiiFR wuR : ' : GOTO 220 

1Z=0 w4-0 i= G£FI5P>>1 AND GEFCSPX10 THEN GEF1SP 

llii •».- -.:-iA'<5, 15,32, B):: GOSUB 11B0 :: FOR L=l TO MENGE :: 



,5)S1ZE< 



:"DM';Z1NS : 



C16)BEEP:" 






1??? 



JEKT SP ■ ■ GOTO 180 

J-l CAiL DELSPRITEIALL)^: 

■t;.6> -NORMALES SPIELENDE" 



nee d:spl«- a ■■« , i ibeep : -durch kredit ueberschreitung 

1110 FOR SP=1 TO MENGE :i FOR L=l_TO 48 
;: CALL STRASSECPOC " 



. . _N1140 ELSE IF LC11 THEN "" ' 
EN PR=20B0 :: GOTO 1130 ELSE IF L<31 THEN PI 
1130 FOR P-l TO 



GOTO 1130 ELSE IF L<2: 
i-3000 ELSE PR=40BB 
GELDtSP>=GELDtSP>+PH :: NEXT P 
40 NEXT L ■ DISPLAY AT 16+2'SP , 1 1BEEP : NAHE*<SP> : : DISPLAY AT<6«2'SP, 

'■ DISPLAY AT(6+2«SP.17>:USING "#####*#**■ " 
50 DISPLAY AK22.3: 



: "ENDAUSUERTUNG B 
L KEY<0,K 
* :: CALL CHAR5ET :. _._ 
1170 CALL HCHARC13.7,32,16>; 



: NEXT SP 

NEUE5 SPIEL J 

=74 THEN RUN 101 



■ CALL HCHAR1 16,7,32, 16) : : 
.180 FOR N-18 TO 20 :: CALL HOARiN.7 .32 , 16) : ; NEXT N 
1190 DISPLAY AT<7,13)SlZE<e>:USING ■»*######■ :GELD<SP> ; : 
1200 SUB STRASSE<POO,PR,SP,U) 



00 ELSE CALL CLEA 
TO 750 i ; NEXT Z 



-?■"■»«"■" ■-"»■ TI99/4A ii 

IS "*" lds ''"'"' b """".' m "-«™i»S'««fifeld...tu«» s tr.i2b».ein™men s teuer - 

J 2 «I«SUEOBAH,<HOF,4.88 i C„AOSSEESTR.2BBB,ERE>GNlSFELO,l.ELlSE«STR.20Be i POSTST 
123B XII «EF,ENaNlSBESUCB 1 2,SEESl« 1 28S. i EL .ERK,300O,H,F£HSTR,2B8B,MEUE SIR, 32. 
b"?rESJ«1t™S° F ' 4 ''" ' ,UE " C "™« STR , 36BB , SEME 1NSCH.FTFEL0 , B ,„E«ER 5TR , 38, 
1250 XII F.E1 ™»E«,3.THEATEMTS,A<8B 1 ERE1G»ISFELB 1 1,»USEU«STIM.BB,0PE«»PL „ 
l2l?,S"S.S D, ° B *""" f •"» ■tESSIMSSIR . S200 , SCH1LLERSTR , 52BB , .ASSER »ERK , 3..B , GDE 
iKfsK'mS* 1 " SGEF ' E « E .< l ««™l'!Rl. 1 6BBB,H«UPTSTR,6eee,GE»EI»8CH.FIFELI>,e.B.I ( 

E 2 |SBS" , """"" B "" NH °' , '*""' ERE,S '" 5 ' EL1 '' 1 '™"8™.™».STEUER 1 -2BB8 i SCBE0SSALLE 
1290 RESTORE 1210 ;: FOR 2=1 TO POLSPl- rfao ft, dc uou, -. 

SPLAY AT(ll,51SI2Etl6)-ST* fulshi.. HEAD STS.PR : NEXT 2 :: IF 0=0 THEN EI 

13BB SUBEND 

1338 oat, !»u komSs? aus S mrmmil Mi- ii ■rlij'&k* 

• HOTEL OP 2BBB-.5.-BETRuSkE« » DfENS? STRA?E IS S- A«» "* US ™ S " 

ks.:m sfp ggfrsg'J' l¥sh- " 6 ?§,e1 ™« eiB ' » > 

S r^K."" i'SW"— 0- l.B.M.B.,.S,R,SSE 

«S»Si»* ° EN mSSg& ,E ' l Stv£? SSE^™ ™ S el» 



^^V* 8EI LOS DM ABBB" AB 3 FELDER" , 3 , "G 

lJP.^JpaS.&'M, SI*?S: 2 ^ E " E "» ' E »«».S N.CHTUEBER 



■ . I ALLLE BEI LOS 
1330 DATA "R0ECF.E VOR BIS AUF IOS oh 
1388 DATA -KEHRE UM IN DIE OADSTRASSF 

■he mm iS- -lolo 

(S>«» :E '. ES « E '«Rs;o 28e 'iSL;r » e ,„ d o". 28 ;:,. s ™''™ c « e ™ b > s 
SSS'SSS"; - ?J r :»™--™«.„f „„ , 

"" SiKdeSdIS-IbS^ S ^ S " EE » » SS!.».™ E «8SI OB 2.»B-,2... • 

iiiliP?. to-™-'— 

>S ,' ™5. "So^b" ""<" ™" ' Ui ElSE ;E ">>»» T»E» «EL»ISP,.,ELD,. 
1518 IF PR<-S9 THEN FP=FP-PR 

;, 2 ?F! 5PL "L:;::i ]3,s '2 E<B '^si»8 ■ 



... ,r««E;,'<"' S " E<B,;llS '" G ■»••••••■ LEUKSPI:: FOR 2E1T-, TO ,SB : : , 

!s)SI2Ene)?.EREiGNIFFELD' ATtie ' E ' S1ZEU£,: " GEME1NSCH * ETF ELD' ELSE DISPLAY AT(1 
l"loS,5 PLAY "<' B . E > B >-"..>:-«.RTE. ,e,de»- „ DISPLAY A„ 2 ,, 5 ,s,2E„8,BEEP- 
1550 FOR ZUT=1 TO IE 

D-IMTfRSPmHl ■■ if ?iit-i tutu ,™ 

1S78 FOR ZUT2=1 TO 7IIT-I ■ ic ic • " - ■ ■ ' ! " : * 

1588 NEXT ZUT2 " 1F ZEG< ^T>=ZEGCZiJT 2 >THEN 1B60 

Ilea lawSr™ 01 ^tweg.zut.else xaun«mnvn 

!I RETUPN E= ' 8 FD 2B :: DISPL " «aiE, 5 > S Iz E{ i G ):-- :: NEXT LIE 
1S40 IF PR=1 0ft PB=12 QR pRi]6 QR pR=2g QR pR=4a TH£fj |gsa el ^ 



toe Tl 99/4A 



IF POtSPOPR THEM W-43-PP-Pi.' SPI:: PR=7 :: SUBEXI1 

IF PR<>2 THEN 169B 

rf=42-PCXSP>' : PR=S :: Cif- 1 FJ < SP > -GE LO ' sr- 1 - 4hO0 ;: SUBEXIT 

IF PROS THEN 1710 __ ,„, „ 

IF PQ<SP'.=3 THEN W=37 ELSE W-(-tS-PD!SP ■ > + i.PCi.'5P)-PR) : : GELD1SP)=GELDISP)-4S 



73B FOR GEB-1 .„ - 
,746 IF GEBOSP THEN IF GELD<GEB1<;0 THEN GELDlGEBi-GEL[><GEB>-20 
LOCSP1+200 :: DISPLAY AT < 7 , 13 JSI2E1B) :US]MG ■#######*" :"""" 





:: NEXT ZE1T : ; SUBEXIT 




ELSE IF PR'6 THEN H-B00 :: ' 


770 PR=0 r: FOR GEB=1 TO 48 :: IF 


iTfGEBH'SP THEN 1810 






























B50 IF GEF(SPJ>=10 THEN GEKJPi^. 


EFCSP)-1B ELSE 1670 



Der kleine Gartner 



iomputer Kontakt B-9/S6 "]-| 99/4A 

Der kleine Gartner 

§e@ 1985 OH It a 



THE PLAGUE" 



90 ' *CDPYRIGHT l^byC.Heyer* tel .=06421/32742 

100 CALL CLEAR :: CALL SCREEN!?):: CALL CHARSEt'. "sc r* VP Pi ut b, «»«~, 
LB=5 :: LV*1 '■ b1 -' "r 'P,PL,WT, BL,CRASH=0 :: 

110 PRINT " **# <l # tM># ..... 



140 PRINT ■ 



*+" :: FOR P=i TO 6 :: PRINT : 
* 1986 BY PRCTDSOFT :CW] * 



170 FDR BST=6 TD B :: CALL C0LOR(BST, 16,1) t i NEXT BST 

^e™^ CflLL ™*<«."»™of B fb™o",: : mi* 

I?? ™ L i L ™; k :^;t C ,f so ° mD K>9£ TH£N CALL CLErtR ELS£ 2°° 

™25i^ ALL 0WJD Ba ,0 :all gouNDc-ioo,44o 20) 

^A!l ^™ f»n^ C1FF00FFFS ' D77& - £: ■TF00FF1FB8EEC&C60F- •• 

LALL CHAR(96,ANDR0S>:! CALL SPRITE(#1, 96, 14,50 12B)-- ' ROB 

2« ci7*cHA™eTiXr 3EeDo3o34707oE8D ^^ 

L^CHAR^7™'i a ; 43,1B ' ;1 ^ «"««***«*»« CALLVCHAR(7,32,43, Iali : CAL 
260 FOR BALK=7 TO 19 STEP 4 :: CALL HCHARIBALK, 1,43,5) : : CALL HCHAR<BALK M « , 
0):: CALL HCHAR.BALM1, 28,43,5):: NEXT BALK HCHARt BALK, 28,43, 1 

270 CALL HCHARC24,1,43,10):= CALL HCHAR<24,23,43, 10) • ■ CALL HCHAR(?3 i ., al r 
ALL HCHAR (23, 24,43,9) nuwmzd, l,4d,y). . 

2B0 CALL HEHAR(24,11, 35,12):: CALL HCHAR<23,1 
TEP 4 :: CALL HCHAR(NPI,3,4a+LQ): : CALL HCHARi 

300 .' SPRITES SETZEN 

310 > 

320 CALL CHAR(100,"0303030103070F1F10171414171 

™"ri, : , C ^ L SPRITE( * I 1. '00,3,32,1):: ! SPRAYDDSEN 

#14,foO^'32, T 2 3S S ) 12 ' 100 ' 6 ' 32 ' 20,!: WLL ^^.lOO.^^lS):: CALL S PRITE< 

340 CALL HCHARC6,3,49> :! CALL HCHAR(6, 5 ,50): . CALL HCHAR(6,30,=1>: , CALL HCHAR.6 

350 ''ALL CHARC1__, . 

BFF"):: CALL SPRITE(tt2, 136, 12, M*,,^, 

380 CALL CHAR<13 
: CALL SPR 



h'^ ^ 00 ' 0000 ^ 10 10 ^ 3226 6BAFC70000000000000008040A050GB34 U 

■ .-.26,128,216):: PA(5)=12B : : PB<5)— 16 

■r~C«I SFFTTP . E A 6 34FA5FSFFA3464A2I00 

CALL CHAR.124."10100B4£.,-,.- --01O103C42993D7901FEFBFBFEO1793DS94 



Tl 99/4A 



-w"i rail qpRIT£(#7 124 11 97 216)-: PA(7)=97 it PB(7>=216 

410 CALL tt«RU12,"0000207aFC7F5715000IQ103070F9E7B304EDFFF7B30BBFCFCFEFEFEFC70& 

^CA^HARmB^C^B^ 

»e-5*l CALL SPRITECB9, 116,7,65,216);; PA(9)=6S ;: PBC9)=216 

430 ! 

440 ! REM LEVELWAHL 



460 DISPLAY ATU,nBEEP:"llJP : 00 «BKL Jt C 
470 DISPLAY AT<12,B1SIZE<BI:"PRES5 :" =: DISPLAY A1 
■ i: DISPLAY AT(16.10)SIZE(12):"<2> TO HELP 

4SU DISPLAY If' IS, I O/Si.'L: I,'':"' 3- 10 t«' 
430 CALL KEYfO.K.S:.;; IF S-0 THEN -190 
500 IF K<>51 THEN 520 
510 CALL 50UND<:999,-7,0):i CALL DELSPP.I 



E<13):*<1> TO BEGIN 



CALL 5DUND(7S, 445,1 



RESTORE l i CALL CLEAR : 
;: CALL SGUNDaOO,455,;i; 



. ,.] END 

•Si.ii HALL S0UND(50,4 

50UND(75, 470,25:';: II- 1-50 THEN 560 
530 IF K<>49 THEM 490 ELSE 690 

550 ! SPIELHILFE 

-TO CSI I "L^AP ■■ CALL DELSPRITE" ALL ; : : CALL MAuNiFYCtJ nosr-rcfiii a 

570 CALL CHARSET X DISPLAY ATU, IJBEEP: " DIE SPIELFHiUR : " : = '-ALL SPRITES, 9 

BH6FDr'bST=5 TC >" :: CALL COLOR. < EST, 16, 1 > : : NEXT B5T 

590 DISPLAY Xt'iS.1'*" GUETSCHEN SIC DIf WDLKE UEBER DER PFL«KE AUS.DAMT S 

IE WAECHST;DDCH SET2EN SIE" .„-„„, , URnl me tiac 

^■-- D' SPLAY ATi-iB. i-': " AUCH DAS UNGEIUMP ALSUfci- bLFEuHT , INDEM u.E DAB 

■:;-?Ar MJF SIE SPRUEHEN! [ANY KEY]" 

6» l^t DELSPRlTE^nl; clLL T £ ffl^a00,98O, OT .= CALL CLEAR .. DISPLAY ATU.l.BE 
EPi" HIEP DAS UMGEZIEFER:" 

630 DISFLAY AT(2,25BE£P! "[PRESS ANY KEY]" 

640 CALL SPRITEltH, 96, 14, 1,180):: CALL SPK: "E «i , 100 , B, L , Sjl 

650 CALL SPRITE(»2, 136,11, 22, 1,0,5, #4, 128,13,54, 1,0,6, #6,120,6, 9,, 1,0, 7, #b, l«,/ 

SEN0(1MEN,VEP£PPUEHT 



Bit. CALL VLHAR.^^,32,13);: CALL UCHAR '.2, 17, 32, 16. : : CALL CHAR (36, SPRO*) : : 

LOCATE.*^, 127,!2L, #2:":, 137, i;-i . :: i:NP=i27 :: Al T--- 
S20 CALL COLOR (#23, 16):: WAS=0 
B30 ! LOS QEHT'S" !' 

840 FOR ZAEHL=9 TO STEP -1 :: CALL B0UND(EO.seo,?;,aai ,«L s* 4)-- CALL HEW 
,18,4a+ZAEHL): ; NEXT ZAEHL :: CALL HCHARV12, £.32) 
S3':: CASH-) j: CALL S0UND1500, 220, 2, 440, 4, 880 a) 
B60 ! MONSTER- AKT I VIERUNG 

87Q UN-0 :: RANDOMIZE :: CALL SOUMK-IOO, 110, 10, 120, ID- ■ CALL S0UND(-2O0 44 
460,6):: K=rNTi.Si.?.'IC ■ +2 :; ir X. 2- • INTH/:UH2^ ZI=-i £ S^ -,,, 
f^'w^TSSww'r'' 3 = C<m30 * RND " 10l + (0 - 5 *Z*>" «LL MGTlON.ttX.O 
B90 ! **) 



900 CALL JOYSTQ r X,Y>:: IX-IX+X/2 :■ YF=YP+Y/2 








910 tF UN>AB6k50-f4*LV)>THEN B£0 




920 PL=PL+1 :: IF PL=75 THEN 1540 




930 CALL KEYCl.K.Sti: IF SOO THEN 1060 




940 CALL POSITION^!, ZL.SP):: IF (SPi'42 OP SPii 




950 IF ZL>16u THEN 9B0 




960 IF SPR-0 THEN 900 




970 CALL KQT10N<#10+SPR,YP+Y,I)t+J):: QOTD 900 




380 i EXPLOSION DES ROBOTERS 




990 CRABH=1 :: IF ZLMEO THEN 102C 




lOoO FOP STURZ-1 TO 10 :: CALL SOUgE(~iO0.S«M 








1010 NEXT 5TUPZ :: CALL SOUND ( 1 3 1 , -7 110 101 ■ 




.02M CALL LOCATf'ttl, 160, SP) 








00,110,0,-7,0):: i.ALL COLOR (#1, CD i: NEXT CL i: 





1040 LE=LB-1 :: CALL HLkAP< 1 , 32- (SCE > , :>;■) : : IF LB'=0 T'lEN 16^0 

56,124):: CALL CHAR £96, 

1040 ! FEJiKI'NOPF A|.TI'.'IERT~~ 

HSVmEfiSftiff" ^ """"•WW**' IF «• «* "* 

l^.l^S^i™'*'?^' ' "' " LL S0UND(2S ' 5:3 ' 5 - 5 ^.^5;4, 6!: : CALL SOUND'- 

UOO CALL MDTIQ»(WPRH0,O,41[. IF SPR01 THEN 1120 

1110 CALL LOi Alt Hi. Ji2, I ■:: 3PR-0 : : GOTO 1710 

1120 IF SPR-.i.' THEN 1140 

1130 CALL LQCATEi#12,32,20):: SPR=0 :: 60T0 1710 

1140 IF SF'fi\>3 THEN 1160 

1150 CALL L0CATEi*13,32,216'.:: SFR=0 :: QQTO 1710 

1160 IF 8PR<>4 THEN 390 

1170 CALL L0CATE<#14,32,236) :: SPR=0 :: QOTO 1710 

HBO ! SPRAYS ABQESETZT 

1190 CALL POSITIONS], ZL,SF):: IF SP'-OO AMD SP150 AND SFF-0 AND ZL<40 AND UA5=i 

lHtN 1200 ELSE 1220 
1200 CALL C01NC'M..20 r S,i;Xi: ; CALL C0INC(#1 ,#21 , 5,WY> : : IF (UX*UY)-0 THEN 890 
l-K.' 'ALL SDUND(-10rj,aei3,S,a90,6J!i CALL SOUND<- 100, BBO, 10, 66 0, 1 1 ) : : CALL SOUND 
-100,^0,16,660,15!:: CALL COLOR I'ttl , 6 J : : WAS=' -- I30T0 900 
1220 IF UAS-0 THEN 1260 
1230 IF ZL<50 OP ZL>180 THEN 900 

1240 11 =r-:as or sp>iss them jou else call color(i,5,d 

11 ' ■ ■■ ■ ■",' ; ■,■'■: f ALL EOI.INl."-j.::..:.-. 5C ,10;:; CALL SOUND C- 100, 770, 15) ■ 

: WASl-0 :-.^cALL CDLQR(K1,14):: BL=BL*2 i; CALL COLOR <1 , 1 1, 1) : : liQTO 300 
12b'.' i AL_ -UU'ID' 25,4-10, C,r_"";, 4,441,0;: CALL MONO i -75, 44'" , 15. 433 14 441 16) 
1270 IF SF>=20 THEN 1290 
1250 CALL LQCATEr»ll,ZL,SF+16):: SFP=1 :; GOTO 390 



1 I'M IF 5PV3C THEN -31" 


1300 CALL L0>:ATti*12,IL r £F + i&)!! SPR=2 :: SOTO G90 


1310 IF SP'SC AND 3F-'2u3 THEN B90 




■'30 CALL L0rATEC#I3 ZL,SP-16Jii SPR=3 :: SOTO 390 






1350 ' 5FRAYS GESStMEN 


1370 ' SPRAYS ABFEJERN: 


13B0 IF SFR-0 AND .-1AE-:.' THEN 9'."J 




1400 CALL SOUNDilOO, 580,15,-5,2):: CALL SOUND i. !000,//0 






PRF=1 


1430 IF PRF-! THEN FFT-9 




1450 IF PRFOl THEN 10B0 


1470 CALL FC.SITION'SCPR-i'J.ZL^R):: IF lL< (280- i wdSPRJ 


14B0 CALL SOUND'.!')'), :7&0,5 T !77i),E, 1/65, 4):: CALL SOUND 1 . 


call S0UNS1400, no, :.::". > : ^-' ,-; | m qtion(#t 



* 2LX200-<32*SPR) + 



1590 CALL CHARC36, BLUMS):: BC-SC+! 
3,7+I)t: CALL SOUND i 100, BfK.,0.B9'), 
1600 CALL SOUND (200, 890, 15,900, IS 
3IZ£(2):LV :: EC=U4*RIMD>+3 



1610 CALL COLOR (2, EC, ZC! 

16-0 ! 'SAME OVEK 

■..■ ■ - ■■..■. ■.::■.;.::■ : ■ ■:■. ;.:::. =: . '~~-.> ■ ■■ 

.. 30JN3>375, 156,5,157,6,150,7) 
1640 CALL SDUNDC500, 131,5, 132,6, 133, 
6,6):: CALL SDUND<75, 175,5, 176,6) : : 
1650 CALL S0UNDi-250,185,5,186,6,lB: 
1660 CALL COLOR'S, 4, 5):: CALL COLOR 
TI9,7>9.XZE<i7)l"6 A M E Q V E P :l :: 
1670 DISPLAY AT(16,!0)SIZEn4):"-l- 



:: FOR 1=1 TO 7 :: CALL COLOR 1*1, 
,90n, :>:: CALL COLOR f#l , 14) 
10,17):: NEXT I :; LV=LM+1 :: EISP 
C14*RND)-K3 :: IF ZC-EC THEN ZC-ZC- 
ATEfttl,9£,12B):: SOTO 810 

,7):: CALL S0UND(250, 147,5, 140,6, 1 

7):: FOR FI = 1 TD 4 :: CALL SOLM)( 

NEXT FI 

',7):: CALL CHAR ( 36 , WELK* ) 

1121, 7, *20, 7, #23, 12, #22, 13, #1,16): 
DISPLAY AT (U,7.i SI IE '.!')': "PRESS.: 
TO GAME" :: DISPLAY ATI1B, 10JSIIE 



L KEY<C 



: IF £ 



16S0 

1690 CALL SOUNDC-; 

1700 CALL DEL5PR1TE<ALL):: SOTO 

1710 IF CRASH=0 THEN 890 

1720 CRASH-0 :: GOTO 830 

1730 ! ***** E N D E ***** 

1740 END 



THEN 1 



Erweiterung 
zum Programm 
Sound-Editor 



TI99/4A iia 



J:: DISPLAY aT(19,l» ,, 

;2,l):"ftUSQAeE ALS MERQE-E 



i " SOUND "J,CHR»t 



@§E$a«i§& 



Computer Kontakt 8-9/86 



Super Disktool fur 
Extended Basic 



Super X-Basic Disktools 



Ik 



m 



E* 



is. 



LIS. 



16 



'It 



i 



LS-S£SS«. 



Lgt 






116 Tl 99/4A Computer KonlaKt 8- 




3IQS IMMER NEUESTE HARDWARE FOR DEN TI-99/4A DIREKT VOM HERSTELLER 



Computer KontaM 8-9/86 


KLEINANZEIGEN 1,7 


■■ i - ■■■■■■■■■■■■■■■ 
• , >. ■■■■■■■■■■■■■■ 

|B~fe> {J KLEINANZBGEN 2! 
«■■?' ■■■■■■■■■■■■■■■ 


•>. ■' i § 




KLEINANZE1GEN 



Dreeser, Soft- und Hardware 







dasHef 


-Kontakt 

mil den 










iss^SSic 



Computer Koritakl 8-ft 



KLEINANZEIGEN 



■ 
■ ■ . 



SMtnarasminljra. Rcppy + . 



Texas Instru m e nts 



Ief-Proi«atTiire: DISK-EDfTCft. 



KLEINANZEIGEN 




Wenn Du glaubst, 
ben list schon tides, 
dann hast Du 

Bomb Jack 
noch nieht gespielt! 
Do ftiegen Dir die 
Fetxen um die Ohren! 



Du >/ 




29,90 




KLEINANZEIGEN 



UNYO-MOWTOn 



3-KANAL-80UND- 



U. KUNZ 



NEU"" 



er Katalog Nr. 6 

" 11! Ssitm Nutate, Ssltwn mi luckr . 

mmnamm <e w,tbmii,im 
«m a m 12! , spsctwspictiw pins | 

Iltiloj p|M l.Si Hi in feiefwrkr, ufdn Id' 
~T.IWBHHWIBW MJ0 llMJ^iNOMKi] 



Sonstige 

JndJiffflhd*ganWg?ui 






Bestellschein fur private Kleinanzeigen 
















- ■ J_ i X_ 



s r=r™ || 



VoImb Uu-Ebcrlr CdbH 



FUNDGRUBE 



Computer Kontakt S-9/86 



IfundgrubeS 



Bundesliga Live ^X. Sin™ B 



Microdrive 
Cartridge Box 



Selbst test en, 
was besser ist 



% 



Inserenten- 
verzeichnis 



Belkenheid 
Campy-Shop 

CEVRiegsn 



Roland Toorien 
ftmeling 

Thomas TausenO 
Thomas Wagner 



Software- 
Vermittlungsslelle 



kaliwisstdlcftirSW-Ts 



Magazin auf 
Diskette 




Special 



%* a^y 



Lehrreich: "'"-■ 

Tl Assembler Kurs II 



;. leat.-Nr. Tl 6 



AufschluBreich: 
Tl 99/4A Intern 



' Noch besser: COPY-A 



Sest.-Nr. Tl 4 49.90 DM 



W#- 



Zeitsparend: 
Turbo-Assembler 



Bert.-Nr.TIS 99.- DM 



(Pf 1 ? SPEZIALITAlEN-BESTELLSCHEIN 
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T^T""'" H ™ 


«".»».„ 


* ■ ■ , -^° ko ' w " 


B '™";" zi 


Z7«vM,ZZ^ZZa 


rtertBc!l"«4™7M 


MM. 



T.S. Datensysteme-Vertriebsgesellschaft mbH 



-S ™.,?r- »*5f ^""""Efejsucw i 

OM119B,- 



DM 

"will"" fur d * n \ 
Spectrum 



oh j 



MULTIFACEONE 










.isslraBe 45, 8SOO Nil 



